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NA WIRAŻU 


Historia mikrokomputera osobistego, zwłasz- 
cza rozumianego, na podobieństwo motoryzacji, 
jako czynnik cywilizacyjny, osiągnęła kolejny, 
drugi już zakręt. Za pierwszy zakręt można uznać 
wkroczenie IBM i pojawienie się PC. Teraz pora 
na kolejny wiraż, chociaż pisk opon jest jakby 
cichszy. Wracając do komunikacyjnej analogii: 
wiraż, zwłaszcza ostry, jest tym miejscem, z któ- 
rego widać obydwa odcinki drogi: ten, który już 
przebyliśmy od ostatniego zakrętu, oraz ten, na 
który właśnie wkraczamy. Warto więc troszeczkę 
zwolnić, by nie przegapić okazji do ostatniego 
ostrego spojrzenia przez ramię. Kończy się oto 
era sprzętu, umownie określanego jako 16-bito- 
wy (XT 1 AT), a zaczyna epoka osobistych 
komputerów 32-bitowych. Jest to wydarzenie 
znacznie ważniejsze. niż wprowadzenie przez 
IBM rodziny PS/2 i mikrokanału. Tym razem nie 
chodzi bowiem o technologiczną kosmetykę, ale 
o fundamentalną koncepcję. 

Kiedy nie tak dawno pojawił się 32-bitowy 
mikroprocesor Intel 80386, stał się on egzotycz- 
nym nadzieniem kosztownego sprzętu klasy 
„super-PC”. Upłynął pewien czas, i oto pojawiły 
się jednak dwa kolejne procesory, należące do tej 
samej rodziny: 80386SX oraz 80486. Stosunek 
między klasycznym procesorem 80386 a jego 
wersją SX jest taki, jak między 8086 a 8088. 
Wersja 5X ma podobną architekturę wewnętrzną 
jak zwykły 386, ale zewnętrzną magistralę tylko 
16-bitową, co pozwala konstruować sprzęt zna- 
cznie prostszy, tańszy i przy pełnym wykorzy- 
staniu istniejących już rozwiązań PC/AT. Sam 
procesor także kosztuje o wiele mniej od „,pełnej”” 
wersji 32-bitowej. Co prawda wydajność jest 
mniejsza, ale użytkownik dysponuje pełnymi 
właściwościami programowymi procesora 80386. 
To ważne, gdyż procesor ten jest pierwszym 
w rodzinie, który naprawdę nadaje się do sys- 
temów wielozadaniowych z wirtualną gospodar- 
ką pamięcią i ochroną zasobów. 

Procesor 80486 to krok w przeciwnym kierun- 
ku. Ponad milion tranzystorów w jego strukturze 
dzieli się między procesor zgodny z 80386, inte- 
gralny koprocesor zgodny z 80387, ultraszybką 
pamięć podręczną o pojemności 8 KB oraz 
zaawansowane systemy sterowania pamięcią. 
Procesor nie jest zwyczajną „kalką ” starego 386: 
realizuje te same rozkazy (plus kilka nowych), ale 
w inny sposób — sprzętowo, a nie za pomocą 
mikroprogramu, tak, że większość rozkazów 
mieści się w jednym—dwóch cyklach zegara 
systemowego. Takie połączenie koncepcji CISC 
z kuchnią RISC daje kilkakrotny wzrost wydaj- 
ności w porównaniu z 80386. 

Tym sposobem nareszcie istnieje dziś rodzina 
procesorów pozwalająca konstruować sprzęt 
różnej klasy — od komputerów biurkowych do 
bardzo wydajnych stacji roboczych klasy mini- 
-komputera — ale o zbliżonych podstawowych 
właściwościach programowych. Sytuacja ta jest 
zupełnie inna w porównaniu z rodziną 
PC/XT/AT, gdzie chęć zachowania zgodności 
z najmniejszym członkiem rodziny skutecznie 
utrudniała wykorzystanie pełnych możliwości 
procesora 800286, a z jego zaawansowanych wła- 
ściwości wykorzystywana była w zasadzie tylko 
jedna: większa szybkość pracy. 

Rozszerzoną pamięć AT wykorzystywano 
w najlepszym razie jako dysk wirtualny, co 


zresztą często prowadziło do pozornie niewy- 
tłumaczalnych kłopotów. Na czas dostępu do 
pamięci rozszerzonej blokowana była bowiem 
obsługa przerwań. Winę ponosi tu zresztą ka- 
lectwo 80286, który łatwo było przełączyć w na- 
turalny dla niego tryb adresacji wirtualnej, ale 
oficjalna droga powrotna nie istniała: trzeba było 
podeprzeć się „sztuczkami”. Natomiast 80386 


jest już procesorem naprawdę dojrzałym. Wiedzą 


o tym ci, którym zdarzyło się zetknąć chociaż- 
by ze znanym już od jakiegoś czasu systemem 
WINDOWS 386 czy systemem operacyjnym 
MOS386. 

Procesorem nr | w statystycznym komputerze 
osobistym wczesnych lat dziewięćdziesiątych bę- 
dzie więc zapewne 80386 w którejś z mutacji, 
a pamięć operacyjna będzie się liczyć w megabaj- 
tach. Stworzone zostały w tym kierunku solidne 
podstawy w postaci masowej produkcji „kostek” 
pamięci I MB, a wkrótce zapewne i 4 MB. Inne 
szczegóły architektury są już mniej ważne, poza 
tym można liczyć na zdrowy instynkt wytwórców 
sprzętu, którzy samorzutnie dostosowują się 
do ustabilizowanych na rynku standardów 
— wszystko jedno, czy będzie to mikrokanał czy 
też konkurencyjna magistrala EISA. 

W warunkach rozpowszechnienia procesorów 
klasy 386 gwałtownie wzrośnie w komputerach 
osobistych znaczenie systemu operacyjnego 
UNIX, dla którego sprzęt klasy XT i AT/286 był 
o dwa numery za mały — chociażby z powodu 
braku mechanizmów skutecznego rozgraniczenia 
równolegle wykonywanych procesów. UNIX jest 
klasycznym systemem wielozadaniowym i wielo- 
dostępnym, rozwiązującym z natury mnóstwo 
problemów, które w systemie DOS kosztowały 
hektolitry potu całą rzeszę programistów. Proce- 


sor 80486 jest właśnie wyraźnym krokiem firmy 
Intel w kierunku „„oswojenia” UNIX-a, który 
dotychczas spośród popularnych mikroproceso- 
rów najlepiej czuł się na MC68000/10/20. Inaczej 
niż PS/2, UNIX nie jest nowym systemem — ist- 
nieje dla niego mnóstwo dojrzałych aplikacji, 
sprawdzonych wcześniej na stacjach roboczych 
1 mini-komputerach. 

Czy spojrzenie przez ramię za zakręt dostarcza 
jasnego obrazu? Wszystko zależy od tego, czy 
zdobędziemy się na konsekwentny, beznamiętny 
obiektywizm i spróbujemy odrzucić na chwilę 
żywiołową fascynację postępem technicznym. 
Pojawienie się nowej tym razem naprawdę 
nowej — generacji sprzętu nie może prowadzić 
do potępiania istniejących komputerów PC/XT 
1 AT. Będą one produkowane jeszcze przez wiele 
lat, coraz tańsze i w wielu zastosowaniach, zwła- 
szcza biurowych, zapewne optymalne. Nowy 
sprzęt otwiera natomiast drogę do jakościowo 
nowych aplikacji i możliwości. Warto uwzględ- 
niać to już obecnie, kreśląc plany różnych mniej 
lub bardziej długofalowych przedsięwzięć infor- 
matycznych. Wiele można osiągnąć w tym kie- 
runku metodą drobnych kroczków, chociażby 
sięgając szerzej do języka C i programując tak, 
by zapewnić zgodność z realizacjami tego języka 
w systemie UNIX. 

Nawet jeśli nowa generacja mikrokomputerów 
jest dla nas na razie piosenką przyszłości, już 
teraz można zrobić wiele, aby jej przyjęcie nie 
odbywało się na zasadzie: „kupujemy nowe 
— stare na Śmietnik”. Nie powtarzajmy znów 
błędów, które popełniono już raz, przesiadając 
się ze ZX Spectrum na IBM-PC. 


Roland Wacławek 
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Przypominam sobie następującą scenę: na pewnych targach dwóch 
młodzieńców rozmawia z pewnym dystyngowanym panem o niepozornej, 
szarej szafie, na której stoi plakieta symbolizująca przyznany złoty medal 
targowy. 


— [ to ma być komputer? — dziwi się jeden z młodych ludzi. — Bez 
klawiatury i monitora? 
— dAleż tak, zapewniam pana — odpowiada specjalista. — Jest to 


komputer, tyle że specjalizowany, nieinformatyczny... 

Zadumałem się, słysząc coś takiego — do tej pory nie zastanawiałem się 
jakie mogą być komputery... 

Definicja komputera, zawarta w „Małym ilustrowanym leksykonie 
technicznym” (Wydawnictwa Nsikow o-Techniczne, Warszawa 1982), 
głosi, iż jest to maszyna matematyczna — zestaw automatycznie działają- 
cych urządzeń do przetwarzania danych. Ani słowa o zastosowaniach, 
budowie, odmianach itp. 

Inaczej patrzą na ten temat Amerykanie, którzy każdy mikroprocesor 
uważają (i liczą sobie!) jako mikrokomputer. Nie umiem do końca 
powiedzieć dlaczego, ale taka koncepcja specjalizowanego komputera 
najbardziej mi odpowiada. Może dlatego, że przecież w pełni wyczerpuje 
szeroko „„zakrojoną”' definicję małego leksykonu? 

W naszej świadomości społecznej komputer jawi się nam w swej postaci 
z naiwnych reklam naszej telewizji: barwny ekran, płyta główna i klawiatura 

z obowiązkowo doczepioną do niej uroczą panienką. O innych formach tego 
urządzenia zazwyczaj się nie wie. A czyż inżynierski kalkulator z roz- 
budowanymi działaniami i pamięcią kilku działań nie jest wyspecjalizowaną 
formą komputera? A breloczek odpowiadający na gwizdnięcie dźwięczną 
melodyjką? A komputer pokładowy samochodu wyświetlający aktualne 
dane bez informatycznej klawiatury? A zegarek z programowanym budzi- 
kiem i kalkulatorem? 

Są fakty, zjawiska czy rzeczy nie poddające się zabiegowi definiowania. 
Są jednak i takie, które dałyby się zapewne zdefiniować, ale... Inna będzie 
ich definicja dla specjalisty, inna dla ludzi spoza branży. W tej sytuacji 
należy postawić pytanie, na czym polega tworzenie definicji uniwersalnych, 
zrozumiałych i zaakceptowanych przez wszystkich. Chyba nie na ich 
przesadnej szerokości interpretacyjnej, a na celnym wykazaniu głównej idei 
danego urządzenia, bez zbędnych ograniczeń (np. jak bez klawiatury inie do 
celów matematycznych — to nie komputer!), które i tak bardzo szybko 
życie przenosi do lamusa. 

Fakt istnienia komputerów specjalizowanych, czy też nieinformaty- 
cznych skłania mnie — a może skłoni i osoby zajmujące się określaniem co 
jest, a co nie jest komputerem — do przemyślenia na nowo pewnych starych 
i może już nieco zdezaktualizowanych definicji. Może warto pomyśleć nad 
umiejętnym poszerzeniem definicji? Tylko czy piorąca wówczas w auto- 
matycznej pralce gospodyni domowa będzie miała czas sprawdzić w nowej 
edycji „Małego ilustrowanego leksykonu techniki”, czy pierze w pralce 
z komputerem? 


JERZY KLAWIŃSKI 
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Turbo Pascal 


JACEK RAUK 


4.0: 


TPFiles/ — MODUŁ POMOCNICZYCH 
PODPROGRAMÓW OBSŁUGI PLIKÓW 


Jednym z podstawowych problemów przy pisaniu 
bardziej rozwiniętych programów obliczeniowych (pro- 
gramy statystyczne, przetwarzanie dużych zbiorów liczb, 
iteracja funkcji itp.) jest zapewnienie właściwego, czyli 
wygodnego dla użytkownika i odpornego na jego po- 
myłki sposobu wprowadzania danych. Nie jest oczywiście 
problemem zabezpieczenie programu przed pomyłką 
polegającą na wpisaniu przecinka zamiast kropki dziesię- 
tnej czy liczby rzeczywistej zamiast całkowitej. Służy do 
tego dyrektywa ($I—) włączająca automatyczną kon- 
trolę poprawności operacji wejścia/wyjścia i funkcja 
IOResult (przykłady ich wykorzystania podałem w ar- 
tykule Turbo.Lib — biblioteka procedur Turbo Pascala 3.0 
zamieszczonym w „,InforMiku” 1/1989). Nie można 
jednak w ten sposób zabezpieczyć się przed pomyłką 
użytkownika polegającą na wpisaniu złej — chociaż 


semantycznie poprawnej — wartości (błąd taki jest 
bardzo częsty, zwłaszcza tam, gdzie wprowadzać należy 
długie kolumny liczb). Przy dużej ilości danych wczyty- 
wanie ich „,z klawiatury” jest ponadto bardzo uciążliwe. 

Niedogodności tych uniknąć można wykorzystując 
zbiory dyskowe. (W tekście artykułu pod pojęciem „„plik” 
rozumiem zmienną plikową, zaś zbiory fizyczne istniejące 
na dysku określam jako „zbiory”, „zbiory zewnętrzne” 
i „zbiory dyskowe”; w komentarzach na listingach w obu 
przypadkach używam nazwy „„plik”). Dają one mo- 
żliwość dokładnego sprawdzenia wszystkich danych 
i ich poprawy, dopisania opuszczonej linii czy korekty 
popełnionej pomyłki. 

Turbo Pascal 4.0 dysponuje bogatym zestawem pod- 
programów ułatwiających przeprowadzanie operacji na 
plikach i zbiorach. Ich dokładny opis znaleźć można 


w licznych podręcznikach tego języka (np. Jan Bielecki: 
Rozszerzony Turbo Pascal wersja 4.0; WKŁ; Warszawa 
1988). Szczególnie dogodne jest wykorzystanie plików 
tekstowych (text), łatwych w tworzeniu i przeglądaniu. 
Zestawienie najważniejszych podprogramów, przydat- 
nych przy pracy z plikami tekstowymi i zbiorami znajduje 
się w tabeli 1. Jeszcze bogatsze możliwości oferuje Turbo 
Pascal 5.0 (tabela 2). Wykorzystanie ich ułatwia znakomi- 
cie pisanie programów „przyjaznych ” wobec użytko- 
wnika (tzw. ang. user friendly) i wygodnych w obsłudze. 
Standardowe procedury i funkcje nie rozwiązują jednak 
wszystkich problemów. W czasie pisania programów 
denerwowało mnie bardzo np. to, że błąd w pliku, nawet 
„„zauważony” przez procedurę czytania danych, powodo- 
wał konieczność przerwania programu, wywołania edy- 
tora, korekty i ponownego rozpoczęcia pracy. Stanowiło 
to poważne utrudnienie, zwłaszcza dla początkujących 
użytkowników komputera. Drażniące było też przecho- 
wywanie nazw plików zewnętrznych w postaci zmiennej 
typu string, z której dopiero należało pracowicie ,„wyłu- 
skiwać” nazwę zbioru, rozszerzenie, numer stacji dysków 
i ścieżkę dostępu. Dla ułatwienia sobie życia opracowa- 
łem kilka podprogramów i tricków do korzystania z pli- 
ków, którymi podzielić chciałbym się z Czytelnikami. 
Podprogramy zgrupowane są w moduł TPFiles (listing 
1), który dołączyć należy po uprzednim dołączeniu modu- 
łów CRT i DOS. Oto jego opis. 


typ FileName — 
— jest to typ służący do przechowywania nazw zbiorów. 
Jego poszczególne pola oznaczają: 
— correct: Boolean — przyjmuje wartość true, gdy 
nazwa podana jest poprawnie. Jeśli nie (np. występują 
znaki niezgodne z regułami DOS-a) ma wartość false; 
— drive: word — numer stacji dysku w konwencji 
przyjętej w funkcjach standardowych DiskSize i DiskFree 
(1=A,2=Bitd.); 
— path: string[63] — Ścieżka dostępu; 
— name: string[8] — nazwa zbioru; 
— ext: string[3] — rozszerzenie nazwy zbioru. 

zmienne InpN, OutN typu FileName — 
— służą do przechowywania nazw zbiorów danych 
i wyników. Ich wartości określane są przez procedurę 
ReadlONames. 

zmienne InpF, OQutF typu text — 
— pliki wejścia/wyjścia. Moduł NIE KOJARZY ich 
z nazwami plików InpN, OutN. Dokonać tego musi 
piszący program w wybranym przez siebie momencie: 
Assign (InpF,FName(lnpN)); 

funkcja Verify (jej odpowiednikiem w TP 5.0 jest 
procedura GetVerify) — 
nagłówek: function Verify:byte; 
— pozwala na sprawdzenie znacznika weryfikacji zapisu. 
Jeśli jest on ustawiony, funkcja przyjmuje wartość 
ON (1), jeśli nie — OFF (0). Stałe ON i OFF są zdefi- 
niowane w interfejsie modułu. 

procedura SetVerify (jej odpowiednikiem w TP 5.0 jest 
procedura SetVerify) — 
nagłówek: procedure SetVerify (status:byte); 
— pozwala na ustawienie znacznika weryfikacji zapisu 
(1=ON, 0=OFF — można wykorzystać stałe ON 
i OFF). Przy pracy ze zbiorami zewnętrznymi należy na 
wszelki wypadek ustawić wskaźnik na ON, dobry zwyczaj 
nie zmieniania parametrów ustalonych przez właściciela 





Tabela 1. Ważniejsze sŁandardowe podprogramy Turbo Pascala 4.0 


przydatne przy obsłudze plików Lekstowych. 


















Assign sko jarzenie pliku ze zbiorem. 
AssignCrt proc. skojarzenie pliku z konsolą; 
SetTextBuf proc. związanie z plikiem jawnego 
! bufora: : 
Append * proc. otwarcie pliku do dopisywania. 
Reset proc. otwarcie pliku do czytania: 
Rewrite proc. otwarcie pliku dv zapisu: 
Read ; proc. wprowadzenie danych z pliku: 
Readln proc. wprowadzenie danych z pliku. 
prze jście do nowej linii; 
Write proc. wprowadzenie danych do pliku; 
Writeln proc. wprowadzenie danych do pliku, 
przejście do nowej linii: 
Truncate proc. "obcięcie" pliku; 
Eof 1 (boolean|rozpoznanie końca pliku; 
SeekEof |jboolean|rozpoznanie końca pliku 
z pominięciem spacji; 
Eoln |boolean|rozpoznanie końca wiersza, 
SeekEoln (,boolean|rozpoznanie końca wiersza 
z pominięciem spacji; 
lOResult |word kontrola poprawności operacji 
3 we jścia-wyjścia; 
Flush j proc. "wymiecenie'' bufora; 
GC lose proc. zamknięcie pliku; 





Operacje na zbiorach, dyskach i katalogach 


FindFirst |Dos 









wyszukanie pierwszego zbioru 
o podanych cechach; 
wyszukanie następnego zbioru 
o podanych cechach; 


"|FindNext Dos 


GetFAttr Dos 
SetFAttŁr Dos 
GetFTime Dos 


określenie atrybutów zbioru: 
,|]ustawienie atrybutów zbioru; 
ujawnienie czasu ostatniej 
modyfikacji zbioru; 
wymuszone ustawienie czasu 
modyfikacji zbioru; 


SetFTime Dos 










Erase System |proc. usunięcie zbioru; 
Rename System|proc. zmiana nazwy zbioru; 
DiskSize Dos f:longint |wyznaczenie pojemności dysku; 


DiskFree Dos f:longint |wyznaczenie wolnej przestrze- 
-ni dysku; 

podanie nazwy katalogu; 
zmiana bieżącego katalogu; 
utworzenie podkatalogu; 
usunięcie pustego podkatalogu. 


GetDir 
ChDir 
MkDir 
RmDir System 


proc. 
proc. 
proc. 
proc. 











1; -— w rubryce Typ oznaczono : procedury: proc. ,funkc je:f:typ; 


komputera nakazuje jednak po zakończeniu pracy pro- 
gramu powrócić do zastanego stanu wskaźnika (patrz: 
listing 2). 

procedura StrtoFN (jej odpowiednikiem w TP 5.0 jest 
procedura FSplit) — 
nagłówek: procedure StrtoFN (var FN:FileName, NM: 
string); 
— działanie procedury polega na zamianie nazwy zbioru 
zewnętrznego NM podanej w postaci string na zmienną 
FN typu FileName. Jednocześnie przeprowadzona jest 
uproszczona kontrola poprawności nazwy. Jeżeli zamia- 
na nie napotka przeszkód, pole correct zmiennej FN 
przyjmie wartość true, zaś pozostałe pola odpowiednio: 

drive: numer podanego w nazwie napędu dyskietek 
(patrz: opis typu FileName) lub gdy litera oznaczająca 
napęd nie wchodzi w skład łańcucha NM — numer 
aktualnego napędu; 

path: jeżeli w zmiennej NM bezpośrednio po literze 
oznaczającej napęd dysków lub na początku nazwy 
występuje znak *N* pole path zawiera podaną w nazwie 
NM ścieżkę dostępu. Jeśli nie, podana ścieżka dostępu 


Tabela 2. Dodatkowe podprogramy obsługi zbiorów dyskowych 
wprowadzone przez wersję Turbo Pascal 5.0. 















FSplit podział nazwy zbioru na 
logiczne składowe. 
rozwinięcie nazwy zbioru do 
pełnej nazwy kwalifikowane j; 
poszukiwanie nazwy zbioru 

w katalogach; 

pobranie stanu znacznika 
weryfikacji zapisu; 
ustawienie stanu znacznika 
weryfikacji zapisu. 


FExpand 
FSearch f:PathStr 
GetVverifv proc 


SetVverifv proc. 





te; -— w rubryce Typ oznaczono : procedury: proc. ,funkc je:f:typ: 


4 LISTING 1 > 


+ I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ;> 


4. TPFiles v05 > 
4: modul pomocniczych procedur 4 
4: obsługi plikow 2» 
4: J.Rauk 1989 :> 
4HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< > 
Unit TPFiles; 


(KKKKKKKKKKERRKKKRKKKRKRKKKEKREKKKKKKKK) 
intert ace 

LKKEKKKRKKYKRKKKRRYKENYKYKEKRWYKKEKYKKKKYK) 
Uses 

bos,Crt: 
Llonst 
4 Verity / SetVerify > 
ON = 4; OFF =0; 


Type 
FileName = record 
€ typ obrazujacy nazwe zbioru » 
poprawnosc»> correct : Boolean; 
<naped > drive : word; 
<sciezka > path :. stringló3]; 
<nazwa > name :. stringl8]; 
«rozsz. > ext :. stringl3] 
end; 

Var 

InpNOutN : FileName: 

4 nazwy plikow wejscia — wyjscia » 

InpF,OutF : text; 

< pliki wejscia — wyjscia > 
tunction Verify : byte; 
< zwraca znacznik weryfikacji zapisu > 
O = OFF. 1 = ON ; 
procedure SetVerity € SsLatus : byte J; 
< ustawia znacznik weryfikacji zapisu , 
O = OFF, 1 = ON > 
procedure 


StrtoFN € var FN:Filename; NM:strinę >; 
< procedura zamienia nazwe pliku > 
< (string> na rekord typu FileName i > 
< bada jej zgodnosc z regulami DOS-u > 


function FName <€ FN:Filename>: string; 
< zamienia rekord FN na string > 
function 


PathExist € FN : Filename ©> : Boolean: 
< bada istnienie sciezki dostepu do > 


< pliku FN > 


function | 


FileExist € FN _ :FileName >: Boolean,; w | 

< funkcja bada istnienie pliku FN > | 

| 

procedure BackUp € FN : FileName D; | 

< procedura zmienia rozszerzenie > | 
< nazwy pliku FN na BAK. > 
function GurrentDDrive : word; 


< zwraaca nr aktualnego napedu dyskow >» 


«4it=w=A,żsB, 3 e G .. > | 

function | 
DDriveOK € Drive : word > : boolean; 

< testuje gotowosc do pracy stacji > 

< dyskow HDD, FDD, RAM-Disk > 

procedure ReadlONames € Def:stringe D; 


< procedura ustala nazwy plikow we-wy >» 
<« oraz wykonuje automatycznie Backup > 


< pliku wyjscia o ile istnial > 


procedure Edit CName:string;Li:integer>; 
< Mini-Edytor danych > 


Implementation 
KREKEĘKKRKKKKZKRKKRKYKYKKKKKKEKRKKKKKKKKK) 
CGonst 

< KOMUNIKATY : > 
inf01 = "Input file U; 

infO2 = "Output file (0; 

inf03 = ”] s=m=)'; 

inf04 =_"'Illegal file name '!; 

infO5 = "Drive 

infOó = * is not ready .; 

inf07 m "Correct it and hit [ENTER].; 
inf08 = Path ; 

inf0O9 = * doesn”t exist .; 


infiO = "Give the file name correctły !; 


GorrectChar : set of char = 
<« zbior znakow dopuszczałnych w > 
<« nazwach zbiorow DOS-u > 
DW SARZE IDC E 

I 370 OAGZE ZY +IŻ 
function Veritfy : byte; 


|RREZKZKYZKRZKKERKRKAKEAKKKKZAKAKKKKEKKK) 
vat 
r : registers; < pseudore jestry ? 


begin 


NN zn W W 


r.AH :'= $54: 
MsDos ( r DD: 
Verifv :=2 r.AL 


end: < Verify » 


procedure SetvVerifv € status : byte D; 


(RREZEKKZEKRZEKKKKERZZEKEKKERKEKZREKEKEKYKEEK) 


var 
r : registers; < pseudore jestry » 
begin 

r.AH = $2E; 


rAL := status; 


MsbDos (€ r 


end: < SetVerify » 


procedure 


StrtoFN € var FNFilename; NMstrinę >; 


(EKEĘZYKRYKEKEKYKEREZRKKKERKERKEEKEEKYKEEK) 


var 

x : byte: < licznik » 
a : char; < zm. pom.» 
begin 


For x=1 Ło Length << NM> do 
begin 
NMLx]-=UpCase (NMLx]>; 
If not <NMix] in CorrectChar> then 
begin 
FNcorrect = false; 
Exit. 
end 
end, 
with FN da 
begin 
correct. = true; 
w = Pos (CM; 
If x=© then 


drive = CurrentDDrive 
else 


If x<>2 then 


correct := false: 
Exit. 

end 
else 


begin 


drive := Ord<a)>-64; 
end; 
NM := Copy € NM,x+1,Length <NM> 
If €Posc€*,NM)<>1) 
and DDriveOK(drive> then 
begin 


GetDir ( drive,path >; 


>; 


path'=GCopy <path,3,Length<path>>; 


If path<> then path:=path+' 
end 
else 
path = >», 
x= Pos  C',NM; 
While x<>0 do 
begin 
path'=path+Copy (€ NM,1,x 5; 
NM:=Copy € NM,x+f,Length ć NM 
xe Pos  C',NM>; 
If x=1 then 


begin 
correct :'« false: 


Exit 
end 
end z 
x w Pos  €.”,NMy; 
If x<>O0 then 
begin 
name = Copy € NM,1,x*1 5, 
ext. e Copy € NM,x+1,3 >; 
end 
else 
begin 
name = NM; 
ext. e” 
end; 


erul; 


wi POZ 


function FName <€ FN:Filename>: string; 


(RZKEZEKRZZESRKKKARKKRRRKZRKERYSZKKKEEK) 


var 

x : byte; < licznik >» 
a : char; < zm. pom.» 
nm : string; < zm. pom.» 
begin 

With FN do 


If not correct then 


nm =” 
else 
begin 


a :s Char (€ drive+ó4 D); 
nm :'= Goncat 
(a,”: ,path, „name,'. „ext> 
end; 
For x :=1 to Length € nm» do 
begin 
nmlx]:zUpCase (nml x]; 
If not € nmix] in CorrectChar > then 
nm o =” 
end; 
FName ':= nm 


end; < FName » 


function 
PathExist € FN : Filename > : Boolean; 
RAKEKKKERRKYKYRYRKKRKYKRRRKERKRKKRKEKKK) 


VAT 


pname, < nazwa sciezki (string> » 


actpath : string; « aktualny katalog » 


begin 





PathExist ':'= false; 5 
GetDir <O,actpath); | 
With FN do 

If correct then 


begin 
pname „= Char<drive+642>+':'+path; 


<$I-> £ wylaczenie kontroli we_wy >» | 
ChDir € pname 5; 
<$I+> <  wlaczenie, kontroli we _wy > 
If IOResult=0 then 
begin 
ChDir € actpath >; 
PathExist '= true 
end 
end 


end; < PathExist » 


function 
FileExist € FN _ :FileName : Boolean; 
(RYKYREEZKRZKKZRZKRRERKKYKRKĘYSYKEKKYREZEKYK) 
var 
pl : tile; < zm. pom.» 
begin 
Assign (€ pl,FNameCFN> D; 
<$I-> + wylaczenie kontroli we wy > 
Reset ( pl >; 
($I+> «  wlaczenie kontroli we _wy > 
If IOResult = O then 
begin 
Close € pl 5; 
FileExist ':= true 
end 
else 


FileExist '= false 
end; <« Filekxist >» 


procedure BackUp € FN : FileName 2: 
RZYZZKEKYKYKKRRDRKYKERKRKYKRZYKERKEKEKE) 
var 


pl : tile: < zm. pom.) 


name : string; < zm. pom.» 
. 
begin 
j It FileExist CC FN > then 
i begin 
name :'= FNameCFN>: 
FNext '='BĄK; 
If Filekxist € FN > then 
< 
begin 
Assign € pl,FName<FN> >; 
Erase  € pl > 
end; 
Assign € pl,name DD; 
Rename (€ pl, FName<FN> > 
end 
end; < BackUp » 
function CurrentDDrive word; 


(RKKKRKKZRKZKRYKRKKESRKEKRKREKEKKKKKKKK ) 
var 

r : registers; < pseudorejestry » 
begin 
r.AH ':'=  $19; 


MsDos (€ r ); 


GurrentDDrive „= r.Al+1; 


end; < GurrentDDrive » 
function 


DDriveOK € Drive word > boolean; 


(RKRYRKEKYRRZRYRYKYKEKRKKEKRKKKEKKRKEKEK) 


begin 
If  DiskSize(Drive>=-1 then 
DDriveOK := false 
else 
DDriveOK := true 
end; < DDriveOk » 


procedure ReadlONames < Def:string >; 


(KRYKRKKRKYREKERKKEKREKEKKERKEKAKKKKKKKKYK) 


var 
x : integer; < licznik >» 
i - name strinę; < zm.pom. » 


procedure ReadIName; 
< czytanie nazwy pliku we jscia > 
begin 

If Def<>” then 

name := Det 

else 

name = "NONAME'; 


StrtoFN € InpN,name ); 


x s Pos ( „name; 
If x=0)0 then 
InpN.ext „m *INP>; 


write (  infO1,FName(lnpN>,infO3 2; 


Readln € name 3; 
If name<>” then 
begin 
StŁrtŁoFN € InpN,name DD; 
If lnpNcorrect then 
begin 
x «s Pos ( ".,„name); 
If x=0 then 
InpN.ext „= *1NP> 
end 
else 
begin 
Writeln «inf04>, 
ReadlName; 
Exit 
end 
end 
end; < ReadilName > 
procedure ReadOName; 
< czytanie nazwy pliku wy jscia > 
begin 
OQutN.correct „sz InpN.correct; 
OutN.drive '=z  ]npN.drive: 
OQutN.path 'z |]npN.path; 
OutN.name 


'z [npN.name; 


OutN.ext = "OUT; 
Write «infO2,FName<COutN>,inf032; 


Readln € name DD; 
If nameć>” then 
begin 
StrtŁoFN «€ OutN,name DD; 
If InpNcorrect then 
begin 
x 's Pos C€ ”.„name); 
If x=0 then 
InpNext  := "OUT 
end 
else 
begin 
Writeln Cinf04>; 
ReadOName; 
Exit 
end 


end 


end; <« ReadOName >» 


begin 
If ParamCount>0 then 
begin 

name := ParamStr (12); 
StrtoFn € InpN,name DD; 
x '” Pos C€ ”.„name); 
If x=0 then 

InpN.ext „m *INP*; 


If not InpN.correct then 
ReadIlName; 


ReadOName 
end 
else 
begin 
ReadIName; 
ReadOname 
end; 
With InpN do 
begin 
while not DDriveOK (€ drive 


begin 


do 


writeln 
c inf05,Char<drive+ó4),intf06 e 4 
writeln € infO7 DB; 


Readln 


== 


end; 
while not PathExist € InpN > do 
begin 
Writeln <infO8,Chartdrive+ó4D, 
».” „path,inf092; 
Writeln «inf 102; 
ReadIlName 
end 


end; 


With OutN do 
begin 
While not DDriveOK (€ drive > do 


begin 
Wwriteln 


c inf05,Char<drive+64>,inf06 >; 
Writeln € inf07 5; 

Readln 

end; 


while not PathExist € OutN > do 


begin 
Writeln Cinf08,Char<drive+ó64), 5 
*:,path,inf09>; 


Writeln «inf 102; 
ReadOName 
end 
end; 
Backup € OutN > 


end; < ReadlONames> 


procedure Edit <Name:string;Li:integer); 
< rozwiazanie prowizoryczne > 


(REKEKRKKKKZEKKKEKYKYKYRKKKKYKYRKKKEKKEKKK) 


begin j 
Exec C'ciur4urbo.exe',Name) 

end; < Edit >» 

end. <€ modulu >» 


poprzedzona jest ścieżką dostępu od ,„korzenia”” do aktu- 

alnie otwartego katalogu napędu podanego w drive. Za- 

bezpiecza to przed zgubieniem dostępu do zbioru w czasie 

zmian katalogów i napędów (np. procedurą ChDir):; 
name: nazwę zbioru; 

ext: rozszerzenie nazwy zbioru. 

Jeśli w trakcie zamiany wystąpią przeszkody uniemoż- 
liwiające jej poprawne wykonanie, pole correct przyjmie 
wartość fałse, zaś pozostałe pola — wartości nieokreślone. 
Dla przykładu: 

— string "TPFiles.pas' nada polom rekordu FN wartości: 
correct = true, drive=nr aktualnej stacji, path = 

= ścieżka dostępu do zbiorów w aktualnym katalogu, 

name = 'TPFILES', ext = PAS. 

— string b: Njakis xnoname.txt':correct = true, dri- 

ve=2, path="NJAKIS, name="NONAME, ext = 

="TXT". 

— string c: Njak <S* :correct = false, drive, path, 

name, ext — wartości nieokreślone. 

funkcja F'Name (jej odpowiednikiem w TP 5.0 jest 

procedura FExpand) 
nagłówek: function FName (FN:FileName): string; 
— dokonuje operacji odwrotnej niż procedura StrtoFN, 
tzn. zamienia zmienną typu FileName na string, będący 
nazwą zbioru (czytelną dla procedur Assign, AssignCrt). 
Jeżeli pole correct zmiennej FN ma wartość true funkcja 
zwraca otrzymany string, jeśli nie — zwraca pusty 
łańcuch znakowy. 

funkcja PathExist — 
nagłówek: function PathExist (FN:File Name): Boolean; 
— funkcja zwraca wartość true, gdy Ścieżka dostępu do 
zbioru o nazwie FN istnieje lub false — w przeciwnym 
wypadku. Jej zastosowanie omówię przy opisie procedu- 
ry ReadłONames. 

funkcja FiłeExist — 
nagłówek: function FileExist (FN:FileName): Boolean; 
— funkcja ta zwraca wartość true, gdy zbiór o nazwie FN 
istnieje lub fałse — w przeciwnym wypadku. Procedurę tę 
w innej, nie wykorzystującej typu FileName formie, 
opisałem już uprzednio w bibliotece procedur Turbo.Lib. 

procedura BackUp — 

nagłówek: procedure BackUp (FN:FileName); 
— podobnie jak poprzedni i ten podprogram ma swój 
pierwowzór w bibliotece Turbo.Lib. Wprowadzenie typu 
FileName umożliwiło napisanie tej procedury w dużo 
prostszy sposób. Jej działanie polega na zmianie rozsze- 
rzenia nazwy istniejącego zbioru dyskowego na ”.BAK". 
Jej wywołanie przed każdym otwarciem pliku procedurą 
Rewrite zabezpiecza program przed przypadkowym zni- 
szczeniem starej zawartości zbioru skojarzonego z tym 
plikiem. 

funkcja CurrentDrive — 
nagłówek: function CurrentDrive:word; 

— zwraca numer aktualnego napędu dysków w konwen- 
ci: 1I=A,2=B J=€ std. 

Informacje o aktualnym napędzie uzyskać wprawdzie 
można poprzez procedurę GetDir, wymaga to jednak 
pracochłonnego analizowania otrzymanego łańcucha 
znaków. 

funkcja DDrive0K — 
nagłówek: function DDriveOK (Drive:word): Boolean; 
— dzięki wykorzystaniu rozszerzeń implementacyjnych 
Turbo Pascala 4.0 możliwe było napisanie tej, znacznie 
uproszczonej i ulepszonej w stosunku do wersji podanej 


w bibliotece Turbo.Lib, funkcji. Testuje ona nie tylko 
gotowość do pracy stacji dyskietek elastycznych, ale też 
1 dysku twardego i RAM-dysku. Jeżeli stacja jest gotowa 
do odczytu zbiorów, funkcja zwraca wartość źrue, jeśli nie 
(uszkodzenie, stacja o podanym numerze nie istnieje, nie 
włożono dyskietki itp.), wartość false. Numer stacji 
dysków podawany jest jako parametr wywołania Drive 
zgodnie z konwencją przyjętą w standardowych procedu- 
rach DiskSize i DiskFree, tzn. 0 = aktualny napęd, 1=A, 
2=B itd. Kontrola wartości tej funkcji przed każdą 
operacją dyskową zabezpieczy program przed przerwa- 
niem działania w wypadku uszkodzenia napędu (lub 
błędu użytkownika) i utratą wyników (w wypadku 
obliczeń numerycznych stracić można w ten sposób dużo 
czasu i nerwów). 

procedura ReadlONames — 
nagłówek: procedure ReadlONames (Def:string); 
— w przeważającej większości programów wystarczające 
jest stosowanie jednego pliku danych i jednego pliku 
wyników. Sądzę, że opracowanie stałego sposobu okre- 
ślania przez użytkownika ich nazw oszczędza znacznie 
pracę. Przedstawiona procedura jest rozwiązaniem bar- 
dzo prostym. Wczytuje ona nazwę pliku wejścia z linii 
wywołania programu (umożliwia to pracę w trybie wsa- 
dowym, sterowanym programem typu *.BAT) i tworzy 
z niej nazwę pliku wyjścia przez zmianę rozszerzenia na 
„OUT. Jeżeli nazwa podana w linii wywołania nie ma 
rozszerzenia oraz nie jest zakończona kropką, przyjęte 
zostanie rozszerzenie .INP. Jeżeli w linii wywołania 
programu nie podano nazwy albo nazwa nie spełnia 
wymogów DOS-a, procedura przystępuje do wczytania 
nazw plików z klawiatury, proponując „,defaultową” 
nazwę zbioru wejścia na podstawie parametru Def, oraz 
„defaultową” nazwę zbioru wyników na podstawie na- 
zwy zbioru danych. Procedura dokonuje ponadto uprosz- 
czonej kontroli poprawności podanych nazw, sprawdza 
czy istnieje dostęp do podanych w nazwach napędów 
dysków (DDriveOK) i czy istnieją podane w nazwach 
ścieżki dostępu (PathExist). Kontrola ta pozwala wyeli- 
minować błędy popełnione przez użytkownika. Podanie 
nazwy nieistniejącego pliku danych przy istniejącej Ścież- 
ce dostępu NIE JEST TRAKTOWANE JAKO BŁĄD, 
lecz jako prośba o „pomoc” przy stworzeniu zbioru 
danych (patrz: listing 2). Na koniec wywoływana jest 
procedura BackUp dla zbioru wyników. Opisaną proce- 
durę sugeruję potraktować jako kanwę do stworzenia 
własnych, efektowniejszych rozwiązań — np. wyświe- 
tlenia listy dostępnych plików z rozszerzeniem .INP 
1 wybrania właściwego przez podświetlenie (sposób pod- 
świetlania fragmentów ekranu opisałem w artykule 
TPScreen: moduł dodatkowych procedur ekranowych za- 
mieszczonym w „„InforMiku” 3/1989). 

procedura Edit — 
nagłówek: procedure Edit (Name:string; Li:integer); 
— procedura ta jest właściwie wewnętrznym edytorem 
danych. Jej wykorzystanie nie musi ograniczać się do 
zabezpieczenia programu przed błędem w zbiorze da- 
nych, ułatwienia tworzenia zbioru danych czy wyświe- 
tlania wyników. Może ona z powodzeniem służyć do 
wyświetlenia dłuższych informacji na temat działania 
programu (instrukcji użytkownika) lub innych, przygoto- 
wanych wcześniej plików tekstowych. Możliwości jej 
wykorzystania przedstawia program Demo (listing 2). 
Pierwszy parametr — Name — przedstawia nazwę zbio- 
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4 LISTING 2 > 


<$M 64000 ,0,0> 


+ ustawienie rozmiaru sterty i stosu > 
< konieczne z powodu prowizorycznego > 
< rozwiazania procedury EDIT > 
program DEMO: 
< Demonstruje wykorzystanie modulu > 
< TPFiles do wczytywania danych > 
< i udostepniania wynikow > 
uses 


Grt.,Dos,<...,»?TPFiles; 


const. 

msg0 = "END OF PROGRAM.:: 

msg 1 PLEAS' WADE... ; 

msg2 = "INPUT FILE *; 

msg3 = "OUTPUT FILE '; 

msg4 = ” DOESN”T EXIST.; 

msę5 "CREATE IT? [Yjes/INlo 
msgó = "NOT ENOUGH DISK SPACE FOR ; 
msg” = "SELECT A NEW DISK DRIVE ; 
msg8 = "UNEXPECTED END OF INPUT FILE; 
msg9 = "DATA READING ERROR IN LINE ; 


MaxDat = 50; 

< dopuszczalna liczba danych > 
MaxiFSize = 20000; 

< max. rozmiar pliku we. ćw bajtach> » 
MaxOFSize = 50000; 


< max. rozmiar pliku wy. ćw bajtacho> >» 


Łype 
Data = record 
TP : array [1..MaxDat] of real; 
end; 
GE 
var 
A : Data; € dane > 
VerStat : byte; 
< znacznik weryfikacji zapisu , 
FirstResultsLine : integer; 
< nr pierwszej lini wynikow , 
Bia MY 
procedure 


CharReadln € var a:char;b:string DD; 
< wczytuje znak z zakresu okreslonego » 


< przez wymienienie w zmiennej b > 
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VAT 


i, < zm. pom. > 
max,min, < zakres liter >; 
x,y : integer; < poiozenie kursora » 
OK : Boolean; € zm. pom. > 
begin 


x ':s WhereX; y := WhereY; 
If y=25 then Decly>; 
Repeat 
Readlin € a a := UpCase ( a 
i „= Pos © ",B2; 
If i = O then 
OK := Pos(a,b> > 0 
else 
begin 
max :'= Ord  <€bli+2]>+1; 
min = Ord  «Gbll=1]2-1; 
OK:s <COrd(a)<max> and <Ord<a>>min> 
end; 
If not OK then 
begin 
Write  €%72; 
GotoXY ( xy 
ClrEoL; 
write (472 


end 
until OK 
end; < CharReadln » 
procedure GetData € var a:Data >; 


< wczytuje dane do dalszych obliczen > 


var 
i : integer; < zm. pom > 
verd : char; < zm. pom > 
comment : stringl80]; < komentarz >» 
EoD : Boolean; 
< znacznik konca danych > 
begin 
If not FileExist € InpN > then 
begin 
While 
DiskFree<(InpN.drive)<MaxIFSize do 
begin 
Writeln (msgó,msg2ż,”.”); 
Write € msg? ; 
CharReadiln Cverd,*'A..Z*); 
InpN.drive :mOrd<UpCase<(verd>>-64; 


InpN.path sm 72 
end; 
Writeln <msę2,FName (InpN>,msg4); 
Write Cmsg5); 
CharReadln (€ verd,YN* 5; 





If  verd="”y'then 


begin 
Writeln <«msg1>; 
BackUp (€ InpN >; 
Assign (  InpF,FName<InpN>>; 
Rewrite (€ InpF 3; 
writeln ( inpF,'surce:'); 


Writeln ć€ InpF 2: 

writeln 

< InpF „P(MPaJ]':10, TIKT':10 3; 
For 1:51 to Maxbat. do 
Writelnćlnpk .0.0:10:2.0.0:10:202: 
GlGagr"«+ IRBF 3% 

Edit €  FName<InpN>.1> 


pach 


2 |Sste> 
bezaim 
wWriteln  (msg0>: 
Halt. 
end 
end: 
vhile 
Diskk reeCOut.Ndrive><MaxOFSize do 
begim 
writeln (msgó.msg3. 2: 
Write € msg 3); 


Charke.adln (verd. A..Z ); 


OntN.dr1ve: = OrdcUpCase(verd2>)-64: 
OutN.pat.ln = 
end; 


Assign <  lnpr.FNamećlnpND>" 2; 
Reset, € lInpk >: 
Assign << OntF.FNamelcOutNo> 2: 
Rewrite € Out 2: 
For i=s1 Ło 3 do 
besin 
Readln 4 lnpk.cormme=nt. 2: 
Writeln € Outk. comment > 
end; 
EoD := SeekkoF € InpF >; 


It Eob then 


begin 
Close (InpF>:Close(0utF >: 
wWritŁeln  <msg8D>; 


Edit <FName(ImpN>.32; 

GetData ć a 32; < Rekurencja >» 
Exat. 

end; 

i:=1; 

While not EobD do 

begin 


<BI-> 4 wylaczenie kontroli we wy > 
Readln CInpF „a.Pli],a.TLi]>: 
<$I+> 4  wlaczenie kontroli we wy > 
If not <IlOResult=0>then 
begin 
Glose <InpF >;Close(O0utFD; 
Writeln <msg9,1+3,4/41 0); 
Delay «20002; 
Edit <FName(lInpN)>,i+32; 


GetData € a D; 
Exit 


< Rekurencja » 


end; 
EoD := € SeekEoFf <lInpF>> 
OT (i=MaxDat ); 
Writeln 
(OutF „a.P[i]:10:2 ,a.T[1]:10:22; 
IRpo. „Cube 3 
end; 
FirstResultsLine  :=  i+ż; 
Close (InpF >; 


Close  «OutF> 


end; < GetData »' 
procedure werk_ © ADatacG;,..* 3% 
< "makieta' procedury obliczeniowe j > 
begin 
< Tu dokonuje sie obliczen .. > 
end; < Work » 
procedure PutResults <C...>>; 


< "makieta: procedury zapisujacej wyn.» 


begin 
Append € OutF >; 
Writeln <€  OutF,Results DZ 


Writeln «€ OutF 5; 


< Tu zapisuje sie wyniki .. > 
Glose € OQutF >; 
Edit CFName<OutN>,FirstResultsLineD; 


Writeln € msgO > 
end; « PutResult > 


begin 
VerStat := 


SetVerify «€ ON >; 
ReadlONames C'DEMO”>; 
GetData € A 3; 


Verity; 


Work 6. JA =€zt-X3Ż 

PutResults KCI 

SetVerify € VerStat 
end. < DEMO » 
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ru w postaci stringu (można tu wykorzystać funkcję 
FName), drugi nr linii, w której znaleźć winien się kursor 
po wywołaniu. Ze względu na dużą objętość procedury 
w listingu 1 podałem „,zaślepkę” (rozwiązanie nieele- 
ganckie i prowizoryczne) polegającą na wykorzystaniu 
edytora Turbo Pascala (podobnie wykorzystać tu można 
dowolny inny edytor nie dopisujący znaków sterujących 
np. Kedit). W wersji tej parametr Li nie ma oczywiście 
znaczenia. Wady tego rozwiązania to np. konieczność 
założenia, iż potencjalny użytkownik ma wybrany przez 
nas edytor i że znamy katalog, w którym go przechowuje 
lub też konieczność dostarczenia go z naszym progra- 
mem (a co z prawami autorskimi?!). Napisanie własnego 
edytora jako podprogramu nie jest zbyt trudne, choć 
dosyć pracochłonne. W najbliższym czasie postaram się 
opisać sposób jego budowy. 

Wykorzystanie modułu i sposób korzystania z plików 
tekstowych omówię pokrótce na przykładzie programu 
Demo (listing 2). 

Nagłówek programu poprzedzony jest ustawieniem 
rozmiaru stosu 1 sterty. Konieczne jest to ze względu na 
zastosowanie procedury Exec w podprogramie Edit. 
Napisanie własnego edytora danych pozwala uniknąć tej 
niedogodności. Program Demo „udaje” program ob- 
liczeniowy, szukający zależności pomiędzy ciśnieniem 
podanym w megapaskalach a temperaturą w skali Kel- 
vina. Plik danych składać ma się z 2 linii komentarza (np. 
zapisanie źródła danych), 1 linii opisu (nie ma on 
większego znaczenia dla programu, ale ułatwia pracę 
użytkownikowi) i do 50 linii danych P-T (dwie kolumny 
liczb rzeczywistych nie mniejszych od zera). Ponieważ 
przedstawianie metodyki obliczeń nie było moim celem, 
procedury Work i PutResults są jedynie ,„„makietami ”. 
W programie pozostawiłem tylko fragmenty istotne dla 
demonstracji korzystania z plików danych i wyników. 
Program rozpoczynają definicje stałych, będących komu- 
nikatami ekranowymi (zgrupowanie wszystkich komuni- 
katów na początku pozwala na szybką zmianę wersji 
językowej programu — można też wykorzystać mecha- 
nizm kompilacji warunkowej), oraz 3 stałych: 

MaxDat — określająca maksymalną dopuszczalną 
liczbę danych T-P, konieczna, gdy nie stosujemy zmien- 
nych dynamicznych, 

MaxIFSize — oszacowanie maksymalnego rozmiaru 
pliku danych w bajtach, 

MaxOFSize — oszacowanie maksymalnego rozmiaru 
pliku wyników w bajtach. 

Następnie zdefiniowany jest typ Data służący do 
przechowywania i przesyłania danych, oraz zadeklarowa- 
ne są zmienne A (dane), VerStat (przechowujący zastany 
przez program stan znacznika weryfikacji zapisu) i First- 
ResultLine — licznik linii w pliku wyników. Zdefiniowa- 
na jest również procedura CharReadln, służąca do ułat- 
wienia komunikacji z użytkownikiem. Następna proce- 
dura: GetData jest podprogramem do wczytania danych. 

Działanie samego programu rozpoczyna zapamiętanie 
zastanego stanu flagi weryfikacji zapisu i ustawienie go na 
ON. Następnie wczytywane są nazwy plików wejścia/ 
(wyjścia (dzięki uprzedniemu rozwiązaniu tego problemu 
w module TPFiles nie stanowi to kłopotu). Teraz pro- 
gram wywołuje procedurę GetData. Procedura ta: 

l. Sprawdza istnienie zbioru dyskowego InpN (jeżeli 
zbiór nie istnieje, procedura traktuje to jako prośbę 
o pomoc przy stworzeniu go). 
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2. Sprawdza, czy wolne miejsce na dysku wystarcza do 
założenia zbioru danych i — jeśli miejsca jest zbyt mało 
— prosi o podanie nazwy nowego napędu dysków. 

3. Pyta użytkownika, czy założyć zbiór danych. Od- 
powiedź przecząca przerywa program, potwierdzenie 
powoduje zapisanie na dysku o numerze InpN.drive 
szkieletu zbioru InpN z wolnym miejscem na komen- 
tarz 1 dwiema kolumnami zer. Zbiór ten następnie 
udostępniany jest do uzupełnienia (procedura Edit). 
Tu właśnie przydaje się pozornie niepotrzebna 3 linia 
('P[MPalj(...)T[K]|). Ułatwia ona orientację użytko- 
wnikowi. (Jeśli zbiór już istniał, czynności 2 i 3 są 
opuszczane.) 

4. Sprawdza, czy dysk OutN.drive ma dość wolnego 
miejsca na zapis zbioru wyników i ewentualnie prosi 
o wybranie innego dysku. 

5. Dokonuje skojarzenia pliku danych i wyników z na- 
zwami zbiorów i ich otwarcia odpowiednio do odczytu 
i zapisu. 

6. Przepisuje trzy linie tekstu z pliku InpF do OutF bez 
kontroli. 

7. Czyta wartości ciśnień i temperatur. Jeżeli wartości 
obarczone są błędem semantycznym (zły typ) lub logicz- 
nym (wartości ujemne), pojawia się odpowiedni komuni- 
kati dokonywana jest edycja zbioru danych. Po poprawie 
ponownie rozpoczyna się czytanie danych (rekurencja). 
Uproszczone rozwiązanie procedury Edit uniemożliwia 
oczywiście ustawianie kursora w błędnej linii. Pełne 
działanie programu możliwe będzie dopiero po zmianie 
tej procedury. 

8. Po wczytaniu danych, program zapamiętuje numer 
linii, od której rozpoczynają się wyniki obliczeń i za- 
myka plik InpF. 

9. Mimo iż plik OutF jest jeszcze niekompletny, jest on 
również zamykany (radzę każdorazowo zamykać plik 
przed dłuższą przerwą w zapisie i otwierać go ponownie 
procedurą Append, lub stosować procedurę Flush do 
wymiecenia bufora — uniemożliwi to utratę części infor- 
macji w wypadku nieprzewidzianego przerwania pracy 
programu). 

Po wczytaniu danych dokonywane są obliczenia (pro- 
cedura Work), a następnie wywoływany jest podprogram 
PutResults. Jego działanie polega na: 

1. Ponownym otwarciu pliku OQutF (tym razem do 
dopisywania); 

.. Wpisaniu wyników obliczeń; 

. Zamknięciu pliku wyników; 

„ Wyświetleniu zbioru wyników (procedura Edit); 

„ Wyświetleniu komunikatu o zakończeniu programu. 
Jeżeli przewidujemy pracę programu w trybie wsado- 

wym, warto dopisać opcję pozwalającą z linii wywołania 

wyłączyć wyświetlanie wyników. 

Mam nadzieję, że przedstawione procedury i sposób 
ich wykorzystania ułatwią Czytelnikom pisanie progra- 
mów łatwych w obsłudze i pozwolą, poprzez wyelimino- 
wanie pisania od nowa powtarzających się fragmentów 
programów, skoncentrować się na istocie rozwiązywa- 
nych problemów. 


wn+<+ w l 


W numerze III/89 „InforMika” w listingu na str. 15 dwukrotnie 
zreprodukowano trzy wersy listingu. Aby program działał poprawnie 
wystarczy wykreślić trzy pierwsze wersy lewego łamu. 


Przepraszamy! 











HISTORIA SPRZED PÓŁ WIEKU 


Bill Hewlett (po prawej) i Dave Packard w chwili 
zadumy nad starą książką finansową firmy 
z pierwszych miesięcy jej istnienia 


Grzegorz Zalot 


O PEWNYM GARAŻU, MONECIE i 538$ 


Jeszcze przed wybuchem drugiej wojny Światowej 
dwóch młodych inżynierów, kolegów z Uniwersytetu 
Stanford w Palo Alto w Kalifornii, postanowiło połą- 
czyć swoje umiejętności i założyć niedużą firmę elektro- 
niczną. Dave Packard, wówczas już żonaty, wynajął 
niewielki domek, na zapleczu którego ulokował swo- 
jego kolegę, cieszącego się jeszcze urokami stanu wol- 
nego, Billa Hewletta. Najważniejszy był jednak garaż 
— tam miała znaleźć swoje lokum nowo powstająca 
firma. 

Zaczęło się od rzutu jednodolarówką. Wynik roz- 
strzygnął, czy firma będzie się nazywała Packard-Hew- 
lett, czy Hewlett-Packard. Wynik znamy. Pierwsze wyda- 
tki zaczęły się we wrześniu 1938 roku. Były to 24 dolary 
1 84 centy na „środki produkcji”. W grudniu doszło 
jeszcze 5,08 dolara na materiały biurowe. W pierwszym 
miesiącu działalności firmy (jej kapitał założycielski wy- 
niósł równo 538 dolarów), czyli w styczniu 1939, mamy 
już znacznie większe koszty — $93,98 na materiały, 
a także niewielkie koszty $1,50 na samochód, $2,00 na 
energię elektryczną 1 dwa dolary dla „„publicity'. Ra- 
chunki z drobiazgową dokładnością prowadzi w tym 
czasie Lucille Packard. Pierwsze koszty wyposażenia 
biura, to 54,64 na używane biurko i $30 na maszynę do 
pisania. To w sierpniu 1939 — trzy miesiące później 
— firma inwestuje 70 dolarów w ogłoszenie o swoim 
pierwszym produkcie. Był to generator akustyczny HP- 
-200A, o bardzo nowoczesnej na owe czasy konstrukcji. 


W stosunku do porównywalnych urządzeń na rynku miał 
on przy niższej cenie większy zakres częstotliwości, był 
także mniej wrażliwy na zakłócenia. Pierwszym większym 
odbiorcą urządzeń na kwotę $536,71 było studio filmów 
dźwiękowych Walta Disneya. 

Na początku drugiego roku działalności zatrudniono 
Już pracownika za całe 25 dolarów tygodniowo. W stycz- 
niu dochody wyniosły 907,71 dol. przy wydatkach 835,31 
dol., a już trzy miesiące później, przy trzech pracowni- 
kach 2550 dol., przy wydatkach jedynie 2000. Drugi rok 
działalności to obrót aż 34 tysiące dolarów, trzech 
pracowników, przeprowadzka do nowego lokalu. Dwa 
lata później firma ma już własny budynek przy 395 Page 
Mill Road w Palo Alto. W tym roku opracowano również 
woltomierz o nie znanej dotychczas stabilności i nieza- 
wodności. 

W roku 1950 HP poczyniło znaczący postęp w zakresie 
mikrofalowych urządzeń testujących. Rok później po- 
wstał HP-524A — licznik wielkiej częstotliwości. Wyniki 
otrzymywano za jego pomocą po niespełna dwóch sekun- 
dach, podczas gdy urządzenia produkowane przez kon- 
kurencję potrzebowały na to około dwóch minut. Po 
ośmiu latach (w roku 1958) firma miała już 51 milionów 
dolarów obrotu, 373 typy wyrobów i zatrudniała 1778 
pracowników. Rok później nastąpił skok do Europy 
— w Genewie powstało biuro sprzedaży, w Boeblingen 
(Niemcy Zachodnie) pierwsza filia produkcyjna licząca 
16 pracowników. 
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Początki firmy HP — niepozorny garaż na zapleczu drewnianego 
domku. W lewym górnym rogu — generator HP200B, pierwsze 
urządzenie produkowane seryjnie 


Jednym z ważniejszych etapów rozwoju firmy było 
opracowanie w 1960 r. oscyloskopu do obserwacji prze- 
biegów cyfrowych do zastosowania w technice kom- 
puterowej. Trzy lata później powstał pierwszy syntetyzer 
częstotliwości, używany w automatycznych systemach 
pomiarowych. W roku 1964 skonstruowano HP-5060A 
— generator wzorcowy o rewelacyjnej na owe czasy 
dokładności 107” s. Powstały również pierwsze urządze- 
nia przeznaczone dla medycyny, bazujące na technice 
ultradźwiękowej. Nastąpił burzliwy rozwój firmy. 
W 1966 roku utworzono laboratorium HP. Powstał 
pierwszy komputer, HP-2116A. A oto kilka ważniejszych 
dat: 

1967 r. — Urządzenie do monitorowania tonów ser- 
ca noworodka podczas fazy porodu. Opracowane przez 
HP zegary atomowe instalowane są w charakterze wzor- 
ców czasu. 

1968 r. — Pierwszy programowany kalkulator stoło- 
wy, HP-9100A. 

1969 r. — HP oferuje swój pierwszy system operacyj- 
ny pozwalający na wielodostęp 16 użytkowników. 

1971 r. — Prezentacja pierwszego mini-komputera 
programowanego przez użytkownika. 

1972 r. — Pierwszy kalkulator inżynierski HP-35 
powoduje istną rewolucję na rynku kalkulatorów. 

1973 r. — Powstaje mini-komputer HP-3000. 


1974 r. — Pierwszy mini-komputer posiadający pa- 
mięć operacyjną 4 KB. 
1978 r. — HP prezentuje pierwsze programy na bazie 


sztucznej inteligencji. 
1980 r. — Już trzy miliardy obrotu 1 57 tysięcy za- 
trudnionych. 
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1981 r. — HP prezentuje pierwszą strukturę półprze- 
wodnikową zawierającą 600 tysięcy tranzystorów wyko- 
naną w technologii NMOS-II. 

1982 r. — HP-9000 rozpoczyna erę 32-bitowych 
układów scalonych. 


1983 r. — Prezentacja 1del „,fouch screen”. 

1984 r. — Powstaje pierwsza na świecie drukarka 
atramentowa — słynny HP-Inkjet. 

1985 r. — Pierwsza drukarka laserowa HP Laserjet 


— mechanikę opracowano wspólnie z japońską firmą 
Canon. 

1987 r. — Bill Hewlett odchodzi na emeryturę. Do 
grona dyrektorów wchodzą synowie założycieli firmy. 
Walter Hewlett i David Woodley Packard. 

1988 r. — HP w magazynie .„Fortune” znajduje się 
na liście 50 największych firm świata. Równo 10 miliar- 
dów dolarów obrotu, 87 tysięcy zatrudnionych, w tym 
5500 w RFN. 

Maj 1989 r. — Akcje przedsiębiorstwa są oficjalnie 
wprowadzone na giełdę we Frankfurcie. 

Wydawałoby się, że koncern HP niemal przebojem 
toruje sobie miejsce na rynku. Tak jednak nie jest. Przez 
pierwsze dziesięciolecia receptą na sukces była metoda 
„inżynierowie budują dla inżynierów *. Jej sens zawierał 
się w analogicznych potrzebach inżynierów HP i in- 
żynierów innych firm — potencjalnych odbiorców. Przy- 
kładowo, jeżeli pewien zespół w HP potrzebował do 
nowych prac lepszy, doskonalszy oscyloskop, to z bardzo 
dużym prawdopodobieństwem urządzenie to było po- 
trzebne również inżynierom w innych firmach. Ta myśl 
przewodnia szefów HP była skuteczna jednak tylko do 
pewnego momentu. Jej konsekwencją był fakt dużego 
rozdrobnienia firmy i brak odpowiedniej informacji 


Jeden z mikrokomputerów HP z kilkuletnią już historią. Maszyny te, 
produkowane dobrych kilka lat temu, charakteryzowały się niezwykłą 
wprost dbałością o formę i ergonomię. Klawiatura zintegrowana 
z wygodnym biurkiem, interesujący pod względem kształtu monitor, 
oczywiście z możliwością przesuwania wzdłuż blatu. Po prawej ręce 
wygodnie dostępne są kieszenie napędów dyskowych 











HP pierwsze wprowadziło tzw. Touch screen — specjalne klawisze 
o definiowanej funkcji zintegrowane z monitorem. W połączeniu 
z uproszczonym systemem okienek można było wygodnie tworzyć 
systemy prowadzące użytkownika, nie wymagające żmudnego prze- 
dzierania się przez kilka tomów dokumentacji. Dużym ułatwieniem jest 
standardowe wyposażenie każdego systemu HP w bazę danych 


o produktach rozwijanych w innych firmach. W pewnym 
momencie zaczął być odczuwany brak profesjonalnego 
marketingu. 

Inną ciekawostką z historii HP, jest fakt istnienia na 
początku lat osiemdziesiątych aż pięciu różnych rodzin 
komputerów HP, zupełnie ze sobą niezgodnych pro- 
gramowo z uwagi na różne systemy operacyjne. Wyko- 
rzystanie oprogramowania oferowanego przez wiele firm 
było również utrudnione. Wtedy ówczesny szef HP, John 
Young, postawił znaczną część posiadanych środków na 
jedną kartę: koncepcję architektury RISC (ang. Reduced 
Instruction Set Computer) — procesorów o zredukowanej 
liczbie prostych instrukcji, jednak wykonywanych bardzo 
szybko. Koncepcja ta była znana już wcześniej. Zaj- 
mowano się nią w IBM — jednak do tych prac nie 
przywiązywano zbyt wielkiej wagi. Young sprowadził od 
IBM jednego z najlepszych pracowników, fizyka Joela 
S. Birnbauma i rozpoczął szeroko zakrojone i bardzo 
żmudne prace nad nową koncepcją procesora. Dodat- 
kowym utrudnieniem była konieczność zapewnienia pro- 


Wygodne stanowisko pracy można zbudować także przy niezależnych 
monitorach. Podstawą jest odpowiednia konstrukcja biurka łączącego 
się (strona prawa) z jednostką centralną wraz ze stacjami dysków oraz 
(strona lewa) z drukarką. Oczywiście nie bez znaczenia jest odpowied- 
nie oświetlenie miejsca pracy oraz oprawa plastyczna pomieszczenia 
programistów. Dodajmy jeszcze dla wyjaśnienia pewnych wątpliwości, 
że zdjęcie to nie zostało wykonane w kraju, choć być może i unas ktoś 
już zaczyna dbać o estetykę miejsca pracy 








gramowej zgodności z oprogramowaniem dla maszyn 
wcześniejszych. Kilkuletnie prace zostały w roku 1987 
uwieńczone sukcesem. Nowy model HP-3000/950 znacz- 
nie przewyższał poprzednie pod względem wydajności 
(7 MIPS), zakresu zastosowań, a także poboru mocy. 
System ten jest obecnie oferowany w nowszej wersji 955 
o wyższej wydajności (11 MIPS), można podłączyć do 
niego do 400 końcówek przy pracy wielodostępnej oraz 
wieloprogramowej. 

Marka Hewlett-Packard kojarzy się nam na ogół 
z solidnością, niezawodnością, najwyższymi parametrami 
technicznymi oraz wysoką ceną. Cena ta jest jednak 
wynikiem zastosowania najnowocześniejszych, niezawo- 
dnych technologii wykonania. Dokładna kalkulacja udo- 
wadnia, że w wielu sytuacjach opłacalne jest zastosowanie 
sprzętu droższego, jednak bardziej niezawodnego. 

Jak solidny jest sprzęt HP, wiemy bardzo dobrze. Jest 
on do tego stopnia trwały, że powstał obecnie rynek 
używanych urządzeń elektronicznych tej firmy. Pełno- 
sprawny system, mający za sobą już kilka lat eksploatacji, 
można kupić (z gwarancją!) po cenie wyraźnie niższej od 
ceny porównywalnego systemu nowego, także innej 
marki. Oczywiście może się wydawać, że maszyny takie są 
już znacznie zużyte moralnie — pamiętajmy jednak, że 
wiele mechanizmów znanych nam choćby z popularnych 
IBM-ów zastosowanych było już wiele lat temu w kom- 
puterach HP. Przykładowo technika „„Windows” za- 
stosowana była w HP już w 1978 roku! To, co może być 
dla potencjalnych polskich użytkowników komputerów 
HP najważniejsze, to ochrona przed utratą i zniszczeniem 
danych. Jest to problem nękający wielu użytkowników 
mikrokomputerów klasy PC — krótkotrwały zanik na- 
pięcia w sieci może kosztować nas wiele godzin żmudnej 
pracy. Zresztą w niektórych zastosowaniach (np. w ban- 
kowości) bez odpowiednich mechanizmów ochrony da- 
nych w ogóle nie można stosować sprzętu komputerowe- 
go. Ten problem przy odpowiednim skompletowaniu 
maszyn HP nie występuje. 

Na pewnym etapie komputeryzacji zakładów przemy- 
słowych nieodzowne staje się połączenie poszczególnych 
komputerów w odpowiednią sieć — tylko wtedy osiąga- 
my pełne możliwości wykorzystania systemu komputero- 
wego oraz centralnego lub rozproszonego banku danych. 
Jednak w naszych warunkach opieramy się głównie na 
IBM-ach 1 bardzo drogich sieciach. Nie zawsze roz- 
wiązanie takie jest optymalne, czasem też przy większej 
liczbie użytkowników jednostka centralna (ang. server) 
nie nadąża z przetwarzaniem danych. Alternatywą jest 
zastosowanie systemu wielodostępnego z wydajnym 
komputerem centralnym oraz tanimi terminalami. Sys- 
tem taki jest bardzo wskazany ponadto tam. gdzie 
operujemy dużą ilością danych typu magazynowego. 
Poza tym często zdarza się, że któryś z użytkowników 
uruchomi na swoim komputerze grę z wirusem (czy jakiś 
inny „zarażony program), w wyniku czego porażeniu 
ulega cała sieć. Problem ten znika przy zastosowaniu 
systemów z licencjonowanym oprogramowaniem. 

Panowie Hewlett i Packard są dzisiaj już na zasłużonej 
emeryturze. Stworzony przez nich koncern rozwija się 
nadal, mimo pewnych zmian w filozofii firmy. Pozostał 
jednak w jej produkcji trwały akcent na niezawodność 
i solidność sprzętu oraz komfort pracy. Może zatem 
kiedyś i my skorzystamy z tych zasad, które innym 
przyniosły niezaprzeczalny sukces? 


15 


BL LTTE 


WD 4 





ROLAND WACŁAWEK 


ZAGĘSZCZENIE WYDRUKU 





Większość programów produkujących jakiegokolwiek 
typu informacje graficzne przewiduje możliwość wydru- 
ku grafiki. Często okazuje się jednak, że na typowych 
drukarkach 9-igłowych jakość druku jest niezadowalają- 
ca, zwłaszcza w przypadku, gdy taśma barwiąca jest już 
nieco zużyta. Odpowiedzialność za to ponosi w najwięk- 
szym stopniu mała rozdzielczość grafiki w pionie. Pod- 
czas gdy w poziomie można wybrać w typowej drukarce 
rozdzielczość 60, 120 lub 240 punktów na cal, to w pionie 
rozdzielczość jest dyktowana odstępem między igłami, 
który w drukarkach 9-igłowych wynosi zawsze 1/72 cala. 
Przy wydruku grafiki stosowana jest rozdzielczość pozio- 
ma przynajmniej 120 punktów/cal, co prowadzi do 
wniosku, że rozdzielczość pionowa jest ok. 1,7 raza 
gorsza. W efekcie, jeżeli tylko tasiemka barwiąca nie jest 
mocno nasączona tuszem, w wydruku wyraźnie widoczna 
jest liniowa struktura rysunku. Zjawisko to jest jeszcze 
bardziej dokuczliwe przy wydruku grafiki 9-igłowej na 
drukarce 24-1igłowej w trybie emulacji 9 igieł. Z powodu 
cieńszych igiełek liniowa struktura jest jeszcze bardziej 
widoczna, a kontrast — gorszy. 

Podwyższenie jakości wydruku grafiki 9-igłowej mo- 
żna osiągnąć, stosując program, który drukuje każdą linię 
wielokrotnie, dokonując przy każdym kolejnym przebie- 
gu nieznacznego przesunięcia papieru, tak aby kolejne 
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uderzenia igieł wypadały w innym miejscu, wypełniając 
mniej kontrastowe obszary. W praktyce zadowalające 
wyniki uzyskuje się przy jedno-, a co najwyżej dwukrot- 
nym powtórzeniu. Minusem opisanej metody jest oczywi- 
Ście wydłużenie czasu pracy drukarki, ale w zamian 
uzyskuje się wydruki o zatartej strukturze liniowej i zna- 
cznie bardziej kontrastowe, co jest widoczne zwłaszcza 
przy zużytej taśmie barwiącej. 

Niniejszy artykuł-program zawiera szkic rozwiązania 
tego problemu. Zaprezentowany tu program został prze- 
widziany do współpracy z graficznym środowiskiem 
MS-WINDOWS 1.03 i może obsługiwać praktycznie 
dowolną drukarkę 9-igłową standardu EPSON lub IBM- 
-GP. Po ewentualnej, niewielkiej adaptacji program może 
współpracować z praktycznie dowolnym programem 
graficznym (przeróbka sprowadza się głównie do zaim- 
plementowania interpretacji innych kodów sterujących). 
System WINDOWS został tutaj wybrany dlatego, że 
w trybie graficznym wysyła bardzo oszczędne dane, 
złożone jedynie z bloków grafiki, odpowiadających po- 
szczególnym liniom, oraz z rozkazów przesunięcia papie- 
ru w przód o zadany odcinek. Rozkazy te realizowane są 
przez sekwencję znaków <ESC)><J)< parametry, gdzie 
parametr oznacza liczbę jednostek, o które należy przesu- 
nąć papier. Jednostka liczy 1/216 część cala. 


— 


zagęszczenie wydruku grafiki 


amas MULTIDRU v1.0 Roland Waclawek, Siemianowice S1. 1988 maaa 


Kod_prog 
HS_DOS 
Drukarka 
Czytajwekt 
Ustaw _Wekt 
Pozostaw 
Kod_ESC 
Kod_SPACE 
Kod_HTAB 
CR 

LF 


Parametry 


Inicjacja: 


Print_Adr: 
Print_Segm: 
Status: 


Licznik: 
Kod_graf: 
11_repe: 


BajtOstat: 


Przedostat: 


Inicjuj: 


wylacznik: 


Obs_1TH: 


Do_B10S: 


Drukuj_Zn: 


Pierwszy: 


Bastepny: 


Koniec_ESC: 


ABAAS RSSG" JĘCGGGEE biz! 8 43373 935 SNĘSĘ RSE SSESEZEĘ SBESEZEZESSEBRY SER 


21H |numer przerwania wywołującego DOS 
17H ;numer przerwania obsługi drukarki 
35H ;MS-DOS - odczyt wektora przerwania 
258 ;MHS-DOS - zapis wektora przerwania 
2TH numer przerwania integracji progr. 
1BHR ;kod znaku <ESC> 

20H ,Kod spacji 

9 ;Kod tabulatora poziomego 

13 ;kod znaku Końca wiersza <CR> 

10 ;kod znaku zmiany wiersza <LF> 
C8S:Kod_prog, D8S:Kod_Prog 

129 

BYTE ,pole parametrów wywołania z DOS 
256 

zainstaluj; przeskocz do procedury instalacji 
o ;offset pierwotnego handlera druk. 
o ; segment pierwotnego handlera 
0 ;bajt stanu programu NULTIDRUK: 


;bit 7:1: obsługa sekwencji  <ESC> 
;bit 6:1: obsługa argumentu  <ESC> 
;bit 5:1: ostatni bajt argumentu 
;bit 4:1: bajt przedostatni argum. 
;bit 3:1: obsługa rozkazu ESC-1AH 
;bit 0:1: aktywny tryb graficzny 


;licznik bajtów trybu graficznego 
;bufor Kodu operacji graficznej 
;liczba powtorzeń wydruku wiersza 


PTR Licznik+1i, AL; zapamiętaj zawart. AL 
PTR Status, 0000010008 ;czy to kod 1AH? 
_4AH itak, to rozkaz wysuwu 


BYTE PTR Status, i ;czy aktywna grafika? 
Kesc inie - to nie grafika 
AL, Kod_ESC ;wyprowadz znak <ESC> 
Wypr_dobuf ;do bufora wiersza 
AL, BYTE PTR Kod_graf ; wyprowadź rozkaz grar. 
wypr_dobuf ; do bufora wiersza 
AL, BYTE PTR Licznik ;młodszy bajt licznika 
wypr_dobuf ;do bufora wiersza 
AL, BYTE PTR Licznik+i ; starszy bajt licznika 
Wwypr_dobuf ;do bufora wiersza 


BYTE PTR Status, O0000001B ; kasuj obsługę ESC 
Koniec_wyp 


KkX ;zapisz długość wysuwu na Stos 
Druk linii ;wydrukuj akt. zawartość bufora 
AL, Kod_ESC  ;wyprowadź do drukarki znak ESC 
wypr_druk 

AL, 4AH ;wyślij do drukarki rozkaz 4AH 
Wwypr_druk 

AX ;odtwórz w AX długość wysuwu 


AX, WORD PTR 11_repe ; redukucja arg. o liczbę 
;powtórzeń wydruku linii 


Wwypr_druk ;wyślij dane do drukarki 
BYTE PTR Status, 00000001B ;,Kasuj flagi ESC 
Koniec_wyp 


BYTE PTR Status, 10H ; czy ost. bajt sekwencji ESC? 
Przedostat ;nie -trzeci z czwórki bajtów 
BYTR PTR Status, 20H ; przedostatni bajt sekwencji? 
BajtOstat ;tak, obsługa przedost. bajtu 
Koniec_ESC ;koniec obsługi sekwencji ESC 


BYTE PTR Status, 11101111B ;kasuj wskaźnik bitu 3 
BYTE PTR Licznik, AL ; zapamiętaj jako młodszy bajt 
koniec_wyp ;1 wyprowadź go na drukarkę 


CS:BYTE PTR Status, O ;skasuj wszystkie flagi 
CS:WORD PTR Licznik, O ;skasuj licznik bajtów 
CS:WORD PTR Wsk_bufora, OFFSET Bufor_ln 

CS:WwORD PTR Licz bufora, O 

Do_BI08 


0 ;flaga wyłączenia programu 


C8S:Kod_prog, DS: ROTHING ;tu po rozkazie INT 17H 
BYTE PTR CS:Wylacznik, OFFH; czy stan wyłączenia? 


Do_B108 ;tak - skocz do norm obsługi 
AH, 1 ;funkcja inicjacji drukarki? 
1Inicjuj ;tak -zainicjuj także program 
AH, O ,czy funkcja nr 0: wydrukuj znak? 
Drukuj_Zn ;tak - zwykłe wyprowadzanie znaku 


CS:DWORD PTR Print_Adr; skok do standard. handlera 


CS:BYTE PTR Status, 80H ;czy to tryb obsługi ESC? 


Tryb_Norm ;nie -zwyczajna interpretacja 
DS ;przechowaj używane rejestry 
sl ten fragment interpretuje 
Bx „sekwencje znaków rozpoczęte 
cx ;kodem sterującym ESCAPE :1EBH 
cs ;niech segment danych stanie 
DS ;się zgodny z segmentem Kodu 


CS:Kod_prog, DS:Kod_Prog 

BYTE PTR Status, 40H ;czy to pierwszy znak po ESC? 
Obslug_ESC ;Jeś$11i nie, obsługa sekw. ESC 
BYTE PTR Status, 10111111B ;kasuj bit argumentu 
BX, OFFSET Tabl_ ESC  ; adres tabl. Kodów sekw. ESC 
CL, (OFFSET wsk _bufora-OFFSET Tab]l_RSC)/3; 11. elem 


AL, [BX) ;kod znaku zgodny ze wzorcem? 
Zznalez Kod itak - zakończ przeszukiwanie 
BX, 3 ;,ustaw adres Kolejnego wzorca 
CL ;CL-licznik elementów tablicy 
Nastepny ;gdy nie Koniec, szukaj dalej 


BYTE PTR Status, 00000001B ; kasuj flagi trybu ESC 
Koniec wyp ;,wyślij znak z AL na drukarkę 


Znalez_Kod: JMP 
Grafika_4B: OR 
MOV 
Cztery _Bty: OR 
JMP 
Kod_4AH: OR 
Trzy _Bajty: OR 
JMP 
Kod_36H: MOV 
MOV 
MOV 
HOv 
CALL 
MOV 
CALL 
ARD 
JMP 
ASSUME 
Tryb_Norm: TEST 
JRZ 
CHP 
JE 
CALL 
JMP 
Wyprowadz: JMP 
Tryb_Graf: DEC 
JNZ 
ABD 
wypr bufi: CALL 
JHMP 


wypr_dobuf: PUSH 


Escape: MOV 


Druk linii: 


Petla dl: 


Nie _drul: 


Emisja_3: 


Em1isja_li: 


Nast bajt: 


Emislini: 


wypr _druk: 


Koniec Wyp: 


Konwypr: 


wprzod ci: 
Tabl ESC 


Licz bufora: 
wsk _ bufora: 
Bufor_ln: 


Zainstaluj: 
Instal_P: 


Dkontyn 1: 


POP 


POP 


DB 1BH, 4AH, 1 


8 Ed ZEŁSĘSZEŁ 


O 
SBB 
w 


[BXx+1) ;,skocz do adresu z tablicy 
BYTE PTR Status, 00000004B ;ustaw flagę grafiki 
BYTE PTR Kod_grai, AL ;przechowaj Kod grafiki 
BYTE PTR Status, 10110000B ; ustaw flagi trybu 4-8. 
Koniec_wyp 


BYTE PTR Status, 00001000B ; ustaw flagę Kodu 4AH 
BYTE PTR Status, 10100000B ; ustaw flagi trybu J-B. 
Koniec wyp 


CS:WORD PTR Licznik,O ;wyzeruj licznik znaków 
CS:WORD PTR wsk _ bufora, OFFSET Bufor_in 
CS:WORD PTR licz bufora, O 


AL, Kod_ESC ;,wyślij <ESC> do drukarki 
wypr _druk 
AL, J6LI ;wyślij <36H> do drukarki 
wypr_druk 


BYTE PTR Status, 00000001B ;kasuj flagi trybu ESC 
Koniec _wyp 


CS:Kod_prog, DS: ROTHING 
BYTE PTR Status, 00000001B ;czy to tryb graficzny? 


Tryb_Graf ;tak - to bajt bloku grafiki 
AL, Kod_ESC ;,czy to jest znak <ESC> ? 
Escape ;Jjezel1 tak, włącz tryb ESC 
wypr_dobuf ;Jeśli nie, wyślij znak do 
Konwypr ;bufora wiersza 


DWORD PTR Print Adr  ; skocz do pierwotn. handlera 


wORD PTR Licznik ,;,odlicz wyprowadzany bajt 
wypr_buf ,Jeśli nie ostatni-wyprowadź 
BYTE PTR Status, 11111110B ;skasuj bit grafiki 
wypr_dobuf ,wpisz znak do bufora wiersza 
Konwypr 

BX 


BX, WORD PTR CS:Wsk bufora ; wskaźnik bufora do BX 
WORD PTR CS:Wsk_ bufora ;przesuń na nast. bajt 
WORD PTR CS:Licz bufora ;a1nkrementuj licznik 
BYTE PTR CS: [BX), AL. ;,wpisz znak do bufora 
BX 


BYTE PTR Status, 110000008 ;ustaw bit trybu ESC 
Konwypr ;wyślij znak ESC na drukarkę 


CS:Kod prog, DS:Kod_ Prog 

Emisja _ li ,wyślij bufor do drukarki 
CX, WORD PTR 11 _repe ; liczba powtórzeń do rej. CX 
cx ;składuj licznik na stosie 
S1, OFFSET Wprzod_oi ; przesur papier o 1/216 cala 
Emisja_j 

Emisja_li ;,wyślij bufor do drukarki 
cx ;licznik z powrotem do CX 
Petla_dl ;ewentualnie powtórz wydruk 
CS:wORD PTR Licznik, O; wyzeruj licznik bajtów buf. 
CS:wORD PTR Wsk_ bufora, OFFSET Bufor_ln 

CS:WwORD PTR licz bufora,O 


cx, 3 ;program wysyła do drukarki trójkę 
Bast bajt ;bajtów spod adresu zawartego w SI 
CX, WORD PTR Licz bufora ;liczniK bufora do CX 


Emislini „Jeśli bufor pusty, to powrót 
SI, OFFSET Bufor_ln ;SI offset Dbufora wiersza 


„ładuj do AL Kolejny znak z bufora 
cx ;zapamiętaj rejestry na stosie 
SI 
DX 
AH, O ;AH-kod funkcji dr. : emisja znaku 


;skoryguj stos dla rozkazu IRET 
CS:DWORD PTR Print _Adr ;wywołaj pierwotny handler 
DX „odtwórz rejestry zapisane na StoS 
sI 
cx 
Nast bajt ;pówtarzaj do opróznienia bufora 


AH, O 1AH-Kod funkcji dr. : emisja znaku 
;skorywuj Stos dla rozkazu IRET 
CS:DWORD PTR Print _Adr ; wywołaj pierwotny handler 


cx odtwórz zawartość używanych rej. 
BX 
sl 
DS 
AH, 2 ,odczytaj biezący status drukarki 


CS:DWORD PTR Print_adr 


;sekwencja sterująca ruchu o 1/2816 


OPPSET Kod_36H 

śeeszi Kod_4AH 

ooóiGt Grafika_4B 

OFFSET Grafika_4B 

oz Grafika_4B 

OYSET Grafika_4B 

0 ;liczn. bajtów wpisanych w bufor 


OFFSET Bufor_ln ; wskaźnik do akt. pozycji bufora 
4000 DUP (0) ,tutaj mieści się właściwy bufor 


SI, OFFSET Parametry ; offset parametrów wywołania 
;nast. bajt bloku param do AL 


AL, CR ;czy to Koniec bloku parametrów? 
Kontyn_O ito może być opcja wywołania! 
Kontyn_I ;nie ma już więcej zadnej opcji! 


Kontyn_0O: 


Blad: 
Trzy_ razy: 


Test_testu: 


Test _zalacz: 


Test wylacz: 


Zalwyl: 


1lstnieje: 


Testuj: 


Kontyn_1: 


Wektory: 


Juzistnie je: 
Held Bledy: 


Test_obecn: 


REPE 


Komunikat: 
Rieobecny: 


He ldPokr: 
MeldNiep: 
Stan_zal: 
Stan_wyl: 
Meld_zalacz: 
Meld wylacz: 
Blad Opcji: 


Me ldunek: 


Kod Prog 
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CHP AL, Kod_SPACE ;czy bieżący znak jest spacją? 
JE Instal_P ;Jezeli tak, to go zignoruj 
CHMP AL, Kod_HTAB ;czy to znak poziomej tabulacji? 
JE Instal_P «jeżeli tak, to go zignoruj 
CHP AL, "A> +czy . Ję3t  tó może cyśre "Z" 
JE Trzy razy ;tak-przełącz na dwa powtórzenia 
PUSH AX 

OR AL, 20H ;zamień ew. dużą literę na małą 
CHP AL, 'w* ;,czy akt. znak był literą w”? 
JE Test _ wylacz ;tak -sprawdź, czy to opcja wy* 
CHP Ab, *£” ,czy akt. znak był literą *”z'? 
JE Test_zalacz ;takK -sprawdź, czy to opcja ”za* 
CMP AL; 2* ,;,czy akt. znak był literą ”s”? 
JE Test testu ;tak -sprawdź, czy to opcja ”st*” 
POP AX 

MOV DX, OFFSET Blad Opcji ;nieznany znak - wyprowadź 
JMP Held_bledy ;odpowiedni Komunikat o błędzie 
MOV wORD PTR 11 _repe,2 ,zapisz liczbę powtórzeń - © 
JMP Instal_P 

Mov CH, 10000000B 

HOv BL, *t* 

JMP Zzalwy! 

MOV DX, OFFSET Meld_Zalacz 

KOV CH, O 

MOv BL, 'a* 

JMP Zalwy! 

HOov DX, OFFSET Meld wylacz 

MOV CH, OFFH 

MOV Sg CY: 

POP AX ;odtwórz pierwotny stan stosu 

LODSB ;załaduj do AL kolejny znak 

CHP AL, CR ;czy to już znak Końca linii? 

JE Blad ;Jeżeli tak - sygnalizuj błąd 

OR AL, 20H ;przerób dużą literę na małą 

CHP BL, AL ;test zgodności ze wzorcem 

JNE Blad ;Jeśli rózne, sygnalizuj błąd 

PUSH cx 

PUSH DX 

CALL Test Obecn ;czy program już rezyduje? 

POP Dx 

JCxZ Istnieje ;Jeżeli CXz:0, to rezyduje 

POP cx 

MOV DX,Offset Nieobecny; DX-offset meldurnkKu 

MOV AH, 9 ;9-funkcja DOS emisji meldunku 

IRT MS_DOS ;wyprowadź komunikat na ekran 

MOV AX, WORD PTR Print _Segm 

CHP AX, OFO0OH ,wektor wskazuje do BIOS? 

MOV DX, OFFSET MeldPokr 

JNZ MHeld_bledy 

KOVv DX, OFFSET MeldNiep 

JMP Held bledy 

POP cx 

Mov ES, WORD PTR Print _Segm 

MOV BX, WORD PTR Print _Adr 

DEC Bx ,BXzoffset zmiennej Wylacznik 

CHP CH, 10000000B 

JZ Testuj 

MOV BYTE PTR ES: [BX), CH 

JMP Held_bledy 

TEST BYTE PTR ES: [BX), OFFH 

Hóv DX, OFFSET Stan_zal 

Jz Held _bledy 

MOV DX, OFFSET Stan _wyl 

JMP Meld bledy 

CALL Test _obecn ;MULTIDRUK już w pamięci? 

JCxXZ Juzlistnieje itak -nie wykonuj instalacji 

MOV DX, OFFSET Obs_17H 

MOV AH, Ustaw _Wekt ,przestawianie wektora prze- 

Mov AL, Drukarka ;,rwania drukarki nr 17H 

INT HS_DOS ;zapisz nową wartość wektora 

|944 DX, Offset Meldunek 

Mov AH, 9 

IRT HS_DOS 

Nov DX, OFFSET Zainstaluj 

IRT Pozostaw juczyń program rezydującym 

Mov DX, Offset Komunikat 

MOV AH, 9 

INT MS_DOS 

INT 20H 

MOV AH, Czytajwekt r 

MOV AL, Drukarka 

INT HS_DOS ;ładuj do ES:BX wektor 17H 
HOv wORD PTR Print _Adr, BX; przechowaj segment i offset 
MOV WORD PTR Print Segm, ES ;tego wektora przerwania 
Mov CX, 15 „porównywanie kolejnych 15 
MOV S1, OFFSET Obs_17H ;bajtów programu z akt. za- 
MOV DI, BX ,wartością pam. operacyjnej 
CHPSW ;porównuj aż do kóńca bloku 
RET ;lub stwierdz. niezgodności 
DB CR, LF, 7 


DB *MULTIDRUK juz jest zainstalowany! ',CR,LF, '$* 
DB CR, LF, 7 

DB *MULTIDRUK jeszcze nie zainstalowany$” 

DB CR, LF, *albo przestał] byc dostepny! ',CR,LF 
DATY CE, LP SE* 

DB CR, LF, *MULTIDRUK jest aktywny! ',CR, LF, '$* 

DB CR,LF, *MULTIDRUK nie jest aktywny! ',CR,LF, *$' 
DB CR, LF, *'MULTIDRUE został uaktywniony! *,CR,LF, '$* 
DB CR, LF, *MULTIDRUK zostal wylaczony! *,CR,LF, *$' 
DB CR, LF, 7 

DB *W zleceniu wystapila bledna opcja!',CR, LF, '$* 
DB CR, LF, *'Program zainstalowany w pamieci',CR,LF 
DB 85 


ENDS 
END Inicjacja 





Aby powtórzyć wydruk linii, musimy przechwycić 
i przechować w pamięci kompletną linię grafiki. Za- 
kładając maksymalną gęstość wydruku 240 znaków na 
cal i drukarkę o długości wałka 15 cali uzyskujemy 
minimalną pojemność bufora 3600 bajtów. Dodając 10% 
rezerwy, potrzebujemy bufora liczącego 4000 bajtów. 
Nasz program zostanie zainstalowany w pamięci, przej- 
mie przerwanie programowe obsługi drukarki i będzie 
śledzić wysyłane do drukarki znaki, wychwytując istotne 
kody sterujące. W naszym modelowym przykładzie będą 
trzy grupy kodów: rozkaz CESC)><6)>, wywołany przez 
WINDOWS na początku wydruku każdego dokumentu, 
wspomniany już rozkaz CESC)><J >, wywołujący przesuw 
papieru oraz rodzina rozkazów graficznych CESC)><K>, 
CESC>(L)>, CESC>CY)> 1 CESC)>CZ), zwiastujących 
następujący po nich ciąg bajtów graficznego obrazu. Po 
każdej z tych sekwencji następują dwa bajty, określające 
długość wysyłanego za nimi bloku graficznego. Rozkaz 
(ESC) <(6> wykorzystamy do inicjacji programu, nato- 
miast <ESC>ćJ> będzie sygnałem do opróżnienia 
bufora. 


Program przechwytuje wszystkie wysyłane do drukarki 
znaki i pakuje je do bufora, wyszukując jednak zarazem 
wymienione sekwencje sterujące. Wyjątkiem jest przypa- 
dek, gdy wykryto rozkaz graficzny. Cały następujący po 
nim blok bajtów jest wysyłany do bufora bez żadnej 
analizy. W bloku graficznym mogą bowiem wystąpić 
także ciągi bajtów identyczne z poszukiwanymi przez nas 
sekwencjami sterującymi, co spowodowałoby ich niepo- 
prawną interpretację i w efekcie — awarię programu. 


W chwili wykrycia sekwencji <ESC)>€ćJ)> program 
zapamiętuje jego parametr, po czym zaczyna wysyłać 
bufor do drukarki. Następnie jest przesuwany o 1/216 
cala i bufor zostanie wysłany ponownie. Jeżeli program 
znajdował się w trybie podwójnego powtórzenia, nastąpi 
jeszcze jeden ruch o 2/16 cala i trzeci wydruk zawartości 
bufora. Na koniec program odejmie od parametru pier- 
wotnego rozkazu <ESC)><J)> liczbę wykonanych, je- 
dnostkowych przesuwów (1 lub 2), po czym zrealizuje 
pozostałą część przesuwu wysyłając rozkaz (ESC) CJ) ze 
skorygowanym parametrem. 


Program MULTIDRUK został wyposażony w udo- 
godnienia instalacyjne. Po pierwsze, ponowna próba 
wywołania programu nie prowadzi do jego ponownej 
instalacji — chyba że w międzyczasie zainstalowaliśmy 
inny program obsługujący przerwanie drukarki. Wy- 
krywanie obecności programu odbywa się w ten sposób, 
że odczytujemy bieżący wektor przerwania drukarki 
i porównujemy wskazywany przezeń obszar pamięci 
z zawartością programu MULTIDRUK. Jeśli jest iden- 
tyczna, znaczy to, że program rezyduje już w pamięci. 


Po drugie, wywołując program możemy podać opcję 
WY, ZA lub ST. Zlecenie: MULTIDRU WY powoduje 
czasowe wyłączenie programu (program rezyduje nadal 
w pamięci, ale nie buforuje danych, tylko od razu przesyła 
je do drukarki). Po zleceniu: MULTIDRU ZA program 
jest ponownie uaktywniany, natomiast zlecenie: MULTI- 
DRU ST podaje bieżący status programu: czy jest on 
aktywny, czy też nie. Jest jeszcze jedna opcja: 3, której 
można użyć przy pierwszym wywołaniu (MULTIDRU 3). 
Standardowo każda linia jest drukowana w dwóch prze- 
biegach, a jeśli użyto opcji 3 — w trzech przebiegach. 


Program MULTIDRUK jest przystosowany do pracy 
w formacie .COM. Należy więc najpierw poddać go 


asemblacji: 
MASM MULTIDRU:; 


następnie konsolidacji, wytwarzając wersję .EXE: 


LINK MULTIDRU:; 
I przetworzyć na format .COM: 


EXE2BIN MULTIDRU. EXE MULTIDRU. COM 

Na koniec chciałbym zaznaczyć szkieletowy charakter 
programu i jego pierwotne przeznaczenie do współpracy 
z systemem WINDOWS. Program w przedstawionej 
wersji nie będzie dobrze współpracować np. z tymi 





TURBO-DODATKI 


Tworzenie profesjonalnych programów 
użytkowych często przypomina wyważanie 
otwartych drzwi — program musi zawierać 
wiele typowych funkcji, realizowanych 
zwykle od podstaw przy każdym nowym 
produkcie. Przykładami takich funkcji mo- 
gą być: edycja tekstu (kazdy program wyma- 
ga wprowadzania danych...), tworzenie gra- 
fiki na ekranie czy też zarządzanie okien- 
kami. Każda poważna firma software owa 
posiada zwykle bibliotekę tego typu pod- 
programów — indywidualni programiści 
muszą jednak robić wszystko od początku. 

Firma Borland International postawiła 
sobie za cel ułatwienie życia twórcom spe- 
cjalistycznego oprogramowania, oferując 
pakiety procedur narzędziowych do kom- 
pilatorów Turbo Pascala i Turbo BASIC-a. 
Procedury zawarte w tych pakietach są 
dostarczane zarówno w postaci binarnej, 
jak i źródłowej. Można wbudować je bez- 
pośrednio do tworzonych programów, 
uzyskując w prosty sposób wyrafinowane 
możliwości. 

Oferowane obecnie pakiety biblioteczne 
dla Turbo Pascala to Database Toolbox, 
Editor Toolbox, Graphix Toolbox, Game- 
-Works i Numerical Method Toolbox. 
Kompilator Turbo BASIC-a można nato- 
miast wesprzeć pakietami Telecom Tool- 
box, Database Toolbox 1 Editor Toolbox. 

Pakiet Numerical Methods Toolbox, ad- 
resowany do naukowców i inżynierów, 
pozwala wyznaczać miejsca zerowe funk- 
cji, całkować, różniczkować, odwracać ma- 
cierze i obliczać ich wartości własne, roz- 
wiązywać równania różniczkowe i wyzna- 
czać transformaty Fouriera. Wbudowane 
funkcje graficzne pozwalają w efektowny 
sposób zilustrować wyniki obliczeń. 





programami, które jednorazowo zmieniają standardowy 
odstęp między wierszami, a potem kończą każdą linię 


sekwencją (CR), (LF). Wprowadzenie tych modyfikacji 
w przedstawionym programie jest naprawę bardzo pro- 


ste, ale nie chciałbym psuć przyjemności tym, którzy 


zdecydują się na samodzielną przeróbkę. Jeszcze tylko 
jedna wskazówka. Przygotowując program MULTI- 


Telecom Toolbox daje programom 
w Turbo BASIC-u szerokie możliwości 
telekomunikacyjne: możliwe jest sterowa- 
nie modemem (odpowiedniki większości 
komend XTalk), realizacja protokołu 
XMODEM, automatyczne wywoływanie 
według wbudowanej książki telefonicznej, 
transmisja z szybkościami 300, 1200 i 2400 
bodów, automatyczny wydruk odebranego 
tekstu lub umieszczenie go na dysku i emu- 
lacja terminala VT52. Wszystko to w typo- 
wym dla Turbo BASIC-a środowisku okie- 
nek i rozwijanych menu. 

Database Toolbox składa się z trzech 
modułów: Trainer, Turbo Access i Turbo 
Sport. Trainer służy do wprowadzenia 
w tematykę zarządzania zbiorami danych 
— trenuje tworzenie i działanie drzewiastej, 
indeksowanej struktury rekordów. Pozo- 
stałe dwa moduły uwalniają programistę 
od problemów związanych z wyszukiwa- 
niem, dopisywaniem i kasowaniem rekor- 
dów z bazy danych, sortowaniem danych 
(według jednego lub wielu kluczy) i za- 
rządzaniem pamięcią wirtualną przy ope- 
rowaniu wielkimi zbiorami. 

Funkcje zawarte w pakiecie Editor Tool- 
box pozwalają łatwo skonstruować własny 
edytor z pełnymi możliwościami obróbki 
tekstów, bezpośredniego dostępu do pa- 
mięci ekranu, zarządzania okienkami i roz- 
wijanymi menu. Pakiet zawiera ponadto 
dwa przykładowe programy kompletnych 
edytorów: bloku edycji gotowego do wbu- 
dowania w program użytkowy i procesora 
tekstowego MicroStar. 

Zasada wyposażania kompilatorów 
w pakiety procedur narzędziowych obo- 
wiązywała także w przypadku Turbo Pro- 
logu. Kompleksowe tworzenie baz wiedzy 
i systemów eksportowych w tym języku 
zostało wsparte pakietem Turbo Prolog 
Toolbox — najwszechstronniejszym z ofe- 
rowanych przez Borland „dodatków ””. Pa- 
kiet umożliwia tworzenie popularnych 
form zobrazowania graficznego: wykresów 
słupkowych, kołowych, skalowanych wy- 
kresów. Wspiera komunikację według pro- 
tokołu XMODEM, potrafi przetwarzać 
dane z pakietów Lotus 1-2-3, Symphony. 
dBASE III i Reflex, pozwala konstruować 
własne interfejsy graficzne z użytkowni- 
kiem 1 własny język zapytań (ang. query 
language). Pakiet, zawiera ponadto 40 
przykładowych programów i liczy łącznie 
8000 lini tekstu źródłowego. 


DRUK do współpracy z wybranym programem grafi- 
cznym warto zacząć od wysłania próbnego wydruku 
do pliku dyskowego, a następnie przeprowadzić ana- 
lzę zawartych w nim kodów sterujących programem 
PCTOOLS lub podobnym. 


Wszystkie produkty firmy Borland są 
oferowane w jednakowej cenie 99,95 dola- 
rów za pakiet. Duże walory użytkowe 
sprawiają, że sam tylko Turbo Pascal i jego 
pakiety narzędziowe mają obecnie ponad 
600 000 zarejestrowanych użytkowników. 


Janusz Wrześniak 


MYSZKA BEZ OGONA 


Przy posługiwaniu się popularną myszką 
często zdarza się zaczepić jej przewodem 
o jakiś wystający przedmiot. Przewód my- 
szki plącze się po blacie stołu, krępując 
ruchy. Kiedy indziej przewód myszki oka- 
zuje się za krótki do umieszczenia jej w naj- 
wygodniejszym miejscu. Kłopoty z prze- 
wodem są jednak nie znane użytkownikom 
myszki marki BMC, komunikującej się 
z komputerem bezprzewodowo, za pomo- 
cą promieni podczerwonych. Przewodem 
połączony jest natomiast z komputerem 
specjalny człon komunikacyjny, który trze- 
ba umieścić w taki sposób, aby istniała 
łączność optyczna między nim a myszką. 
Niewyjaśniony pozostaje natomiast pro- 
blem, co robić, gdy obok siebie pracuje 
kilka komputerów wyposażonych w bez- 
przewodowe myszy... Na zdjęciu: myszka 
BMC wraz z członem komunikacyjnym na 
podczerwień. 


(R. W.) 





KRZEMOWE SUPERMÓZGI 


Targi komputerowe Comdex-89 roz- 
wiązały nareszcie języki przedstawicie- 
lom firmy Intel — pierwszy raz oficjalnie 
przedstawiono nowego „króla w rodzi- 
nie procesorów wywodzących się od tak 
szacownego przodka, jakim był mikro- 
procesor Intel 8080. Kto by pomyślał, że 
to dopiero od kilkunastu lat znane są 
mikroprocesory — układy, które wzięły 
swój początek od nieudanego — albo 
raczej zbyt wolnego — sterownika obra- 
zowego. Przeszły one potem przez fazę 
kalkulatorową i osiągnęły moc oblicze- 
niową dużych komputerów z okresu swo- 
ich narodzin. Dzisiaj, dzięki ich popular- 
ności, wydaje się, że były one znane już 
od pradziejów. 

Można powiedzieć spokojnie, że wła- 
Ściwie cała impreza w Chicago stała pod 
znakiem Intela. Jedną tylko niespodzian- 
kę sprawiła firma Tandon, wystawiając 
pomimo intelowskiego tzw. Non-Disklo- 
sure (czyli zakazu oficjalnego pokazu) 
nowy model komputera Tandon 386/33 
z nową wersją procesora 80386/33 MHz 
na hanowerskich targach CeBlT-89. Fir- 
ma sprytnie wybrnęła z opresji, tłuma- 
cząc się, że nowy produkt wyposażony 
jest nie w najnowszą odmianę procesora 
386, ale w selekcjonowane egzemplarze 
wersji 25 MHz. Pomimo to stało się pub- 
liczną tajemnicą, że za miesiąc na tar- 
gach Comdex taka wersja oficjalnie zo- 
stanie pokazana. Sprawiło to zresztą 
sporo „uciechy przedstawicielom firm 
europejskich, trochę zaskoczonych takim 
traktowaniem ich rynku przez firmy ame- 
rykańskie. Dotychczas nowe opracowa- 
nia trzymano zazdrośnie pod kluczem 
aż do targów w Chicago. 

Właściwie w Europie „dano na pożar- 
cie' tylko nowy supermikroprocesor 
o 64-bitowym słowie i architekturze RISC 
(ang. Reduced Instruction Set Computer) 
— Intel 80860. Jest to wspaniała maszy- 
na, która przy częstotliwości zegara 40 
MHz osiąga wydajność 40 MIPS, a przy 


Nowa, 33 MHz wersja „starego procesora 


Intel 80386 
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KRZYSZTOF WIŚNIEWSKI 


pracy z koprocesorem arytmetycznym 
— aż 80 MFLOPS. Intel 80860 przezna- 
czony jest w zasadzie dla naukowych 
stanowisk pracy, gdzie głównym zada- 
niem komputera są bardzo skomplikowa- 
ne obliczenia matematyczne oraz do 
stanowisk CAD i CAM. 

Jednocześnie z prezentacją samego 
mikroprocesora przedstawiono gotową 
kartę do komputerów osobistych zgo- 
dnych ze standardem IBM. We wnę- 
trzu nowego mikroprocesora upakowa- 
no trzykrotnie więcej tranzystorów niż 
w 80386 i praktycznie tyle samo co w no- 
wym 80486, czyli ponad 1,2 miliona. 
Wszystkie rozkazy wykonywane są, dzię- 
ki czteropoziomowemu  „„rurociągowi” 
(ang. pipeline), w jednym cyklu zega- 
rowym. Część zmiennoprzecinkowa od- 
powiada normie IEEE-754. Operacje sta- 
łoprzecinkowe wykonywane Są z dokład- 
nością 32 lub 64 bity. Specjalne instrukcje 
pozwalają na równoległe wykonywanie 
mnożenia i dodawania, a także na opera- 
cje wektorowe. Wewnętrzy transfer da- 
nych dokonywany jest 128-bitową magi- 
stralą danych z szybkością 640 mega- 
bitów/sek. Zespolona część graficzna 
pozwala na 500 tysięcy transformacji 
wektorowych lub 50 tysięcy transfor- 
macji wielokątów na sekundę. Dodatko- 
we zaimplementowane mechanizmy po- 
zwalają na szybkie obliczenia wpływu 
źródeł światła. Możliwa jest dzięki temu 
realizacja filmów trickowych w czasie 
rzeczywistym. Oferowana przez firmę 
Kontron karta dla IBM-AT ma wydajność 
64 MFLOPS i 32 MIPS dla operacji typu 


Integer (tj. na liczbach całkowitych). Zain- 
stalowanie dwóch równolegle pracują- 
cych kart pozwala na osiągnięcie wydaj- 
ności 140 MFLOPS, czyli mocy całkiem 
dorosłego komputera (często nazywane- 
go nawet superkomputerem) Cray-1. Ce- 
na proponowana przez Kontron dla wer- 
sji 32 MHz wynosi 20000 DM, co przy 
60-krotnym przyspieszeniu np. operacji 
graficznych w stosunku do 80386/80387 
(20 MHz) nie jest wygórowanym żąda- 
niem. 

Pomimo tych i jeszcze innych zalet 
80860 pozostanie jeszcze przez najbliż- 
sze lata w cieniu wielkiego brata z rodzi- 
ny CIŚC i jego kolejnych wersji. Decyduje 
o tym popularność mikrokomputerów fir- 
my IBM, a także oprogramowania. Nie 
możemy przecież zapominać o oficjalnie 
działających 10 milionach egzemplarzy 
systemu MS/PC-DOS (oraz podobnej licz- 
bie systemów komputerowych). A ile 
jest bezprawnie kradzionych i powiela- 
nych (w samej tylko Polsce!) tego zapew- 
ne nawet w naszym GUS-ie nie wiedzą. 
Do tego należy dodać systemy pseudo- 
zgodne, które są właściwie tylko przerób- 
kami. To wszystko sprawia, że prawdo- 
podobnie do połowy, a może i do końca 
przyszłej dziesięciolatki, dominować bę- 
dzie MS-DOS jako najbardziej popularny 
system operacyjny oraz kolejne wersje 
8086 (faza projektowa następnego mikro- 
procesora Intel 80586 już została za- 
mknięta, jednak na nowy 64-bitowy pro- 
cesor trzeba będzie poczekać prawdopo- 
dobnie do 1992 r.). Dowodem na to jest 
szybkie wycofanie się IBM z koncepcji 


Procesor 80860 jest znaczącym krokiem w kierunku zwiększania mocy obliczeniowej małych mikrokom- 


puterów do poziomu znanego dotychczas tylko z dużych maszyn 
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000 2 cm” powierzchni zajmowanej przez 

pozostałe części systemu. Nowy proce- 

sor pracuje oczywiście w każdym ze 

znanych trybów pracy swoich poprze- 
dników, czyli: 

— Real Mode 8086/8088, 

— Protected Mode 80286 z jego mecha- 
nizmami zabezpieczania danych przy 
pracy typu Multitasking, 

— Native Mode i Virtual Mode 80386. 

Zakres adresowania pamięci pozostał 
nie zmieniony i tak jak poprzednik może 
on bezpośrednio adresować 4 gigabity, 

a w trybie wirtualnym — 64 terabity przy 

nie zmienionej 32-bitowej szerokości 

magistrali adresowej. Ważną zmianą 

w stosunku do starych modeli jest nowy 

tryb pracy wieloprocesorowej. Pozwoli 

on na istotne zwiększenie wydajności 
pracy, tym bardziej że mechanizmy pra- 
cy wieloprocesorowej są już dosyć do- 

Równocześnie z prezentacją nowego procesora 80860 zaprezentowano gotową kartę do IBM AT — po brze poznane i na rynku dostępne są 

wyposażeniu komputera w tę superszybką jednostkę centralną znacznie wzrasta wydajność maszyny Odpowiednie wersje kompilatorów C, 

Fortranu czy Pascala. Od strony progra- 





wprowadzenia razem z rodziną kompute- 
rów PS-2 systemu UNIX. Szybko zorien- Kilka elementów z nowej, bardzo szybkiej serii Intela 803XX-33 
towano się, że pod sztandarami UNIX-a 
zbyt dużo się nie zdobędzie i powrócono 
do starego, ale popularnego DOS-a. 
Nawet IBM stał się częściowo niewol- 
nikiem własnych standardów i, co nas 
nieco zaskoczyło, w przeciwieństwie 
do takich firm jak NCR, Compaq, AST, 
Hewlett Packard czy Olivetti, nie de- 
klarował już na Comdexie swojej goto- 
wości do podjęcia produkcji komputerów 
wyposażonych w nowy procesor. Chyba 
dopiero na jesiennym pokazie przedsta- 
wi już gotową wersję z rodziny PS-2 
— model 100. 

Na wiosennym Comdex-89 Intel w asy- 
ście szefów największych firm kompute- 
rowych: Cannavino (IBM), Parett (HP), 
Canion (Compaq), Cassoni (Olivetti), Ga- 
tes (Microsoft), Kahn (Borland), King (Lo- 
tus), McGuinn (ATAT) ogłosił trzy cieka- 
we informacje. Pierwsza to ogłoszenie 
śmierci rynkowej procesora 80286 i za- 
stąpienie go nowym 80S5X386 zgodnym 
programowo z 80386, ale z 16-bitową 
magistralą (jak w 80286). W ten sposób 
Intel zamierza zdobyć nasycony w spo- 
rej części rynek komputerów poniżej 
4—$5 tys. DM, oraz zwiększy zapotrzebo- 
wanie na oprogramowanie dla mikropro- 
cesorów 32-bitowych. 

Drugą ciekawostką była oficjalna pre- 
zentacja 33 MHz wersji 80386DX wraz 
z wszystkimi elementami peryferyjnymi. 
Są to: koprocesor arytmetyczny 387DX, 
Cache-kontroler 82385, koprocesor LAN 
82596DX, MCA-Chipset 82320 oraz kon- 
troler magistrali EISA 82350. 

| wreszcie trzecia nowość — pierwszy 
pokaz całkiem nowego procesora Intel 
80486. Z charakterystyką nowego proce- 
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A to nowy, bardzo wydajny mikroprocesor 80486 


mowej dodano szereg nowych rozkazów. 
Trzy dotyczą operacji na rejestrach, a po- 
zostałe operacji z pamięcią typu Cache. 
Najistotniejsze zmiany dotyczą jednak 
nie właściwości natury programowej, ale 
zmian technologicznych i konstrukcyj- 
nych. Podobnie jak w przypadku 64-bito- 
wego 80860, zastosowano technologię 
1-Mikron-CHMOS-IV, pozwalającą na upa- 
kowanie 1,2 miliona tranzystorów na po- 
wierzchni jednej struktury (powierzchnia 
około 2 cm”). Zdecydowano się na umie- 
szczenie koprocesora arytmetycznego 
razem z podstawowym procesorem 
prawdopodobnie pod naciskiem środowi- 
ska programistów. Dotychczas niewiele 
maszyn posiadało dodatkowo koproce- 
sor, który jest bardzo atrakcyjny i intere- 
sujący dla programistów. Część koproce- 
sorowa Intela 80486 potrafi wykonać te 
same operacje matematyczne 100 razy 
szybciej niż sam procesor wspomagany 
programowo. Jest jednocześnie od 4 do 
6 razy szybszy od 80387 przy takiej samej 
częstotliwości zegarowej. W tabeli 1 ma- 
my porównanie wymaganej ilości cykli 
zegarowych dla różnych rozkazów 80387 
i 80486 (części koprocesorowej). W wię- 
kszości przypadków obydwa procesory 
Intela 80486 pracują jednocześnie w try- 
bie równoległym, i sterowane są przez tę 
samą pamięć mikrokodu i sekwencer. 
Tylko jeden bit mikrokodu decyduje, czy 
wykonywana będzie operacja całkowito- 
liczbowa, czy  zmiennoprzecinkowa. 
Przyspiesza to wymianę danych między 
procesorami i upraszcza konstrukcję. 
Przyglądając się powierzchni układu 
scalonego, od razu można zauważyć, że 
spory obszar zajmowany jest przez kon- 
troler Cache i statyczną, bardzo szybką 
pamięć SRAM-CACHE. Zastosowanie te- 
go kontrolera pozwala efektywnie wyko- 
rzystać bardzo dużą szybkość jednostki 
centralnej i jednocześnie zwalnia pro- 
gramistę od myślenia o odpowiednim 
oprogramowaniu. Kontroler jest dla użyt- 
kownika „przezroczysty i sam bezbłęd- 
nie modyfikuje kody programu, dostoso- 
wując je do własnych potrzeb (czyli op- 
tymalnego umieszczenia programu i da- 
nych w pamięci). Programista może tylko 
za pomocą dwóch rozkazów ingerować 
w pracę kontrolera Cache. Są to: INVD 
— unieważniający dane w pamięci Ca- 
che i WBINVD — wpisujący najpierw 
dane do pamięci operacyjnej i unieważ- 
niający następnie dane w pamięci Cache. 
Jak możemy zauważyć w tabeli 2, sa- 
ma część arytmetyczna i interfejsu wej- 
ścia-wyjścia ma istotnie większą wydaj- 
ność. Większość operacji wymaga tylko 
jednego cyklu zegarowego, podobnie jak 
w procesorach RISC. Tak istotne przy- 
spieszenie (prawie trzykrotne) uzyskano 
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dzięki zastosowaniu kilku tricków sprzę- 
towych. 

Pierwszym jest aż pięciostopniowy 
tzw. pipelining pozwalający jednocze- 
śnie przetwarzać pięć rozkazów w róż- 
nych stadiach interpretacji. Następnie 
zastosowanie techniki RISC w architek- 
turze wewnętrznej przy jednoczesnej pe- 
wnej zgodności z zewnętrznym otocze- 
niem zgodnym z rodziną 8086. Szerokość 
wewnętrznej magistrali wynosi 128 bitów 
i pozwala na bardzo szybki transfer da- 
nych pomiędzy jednostką centralną, ko- 
procesorem i pamięcią Cache. Na doda- 
tek, jak już wspomniano, w bardzo wielu 
przypadkach procesor i jednostka aryt- 
metyczna mogą działać w systemie wie- 
loprocesorowym. 

Zadbano też o łatwe rozpoznawanie 
przez system operacyjny i oprogramo- 
wanie, z którym procesorem mają do 
czynienia: otóż po sygnale RESET rejestr 
DH przyjmuje wartość 4. Wszystkie te 
zmiany pozwalają uzyskać przy często- 
tliwości zegara 33 MHz aż pięćdziesię- 
ciokrotne przyspieszenie pracy w stosun- 
ku do klasycznego IBM XT z procesorem 
8088 i taktem zegarowym 4,77 MHz. 

Wszystkie te nowości zostały zamknię- 
te w obudowie z 168 wyprowadzeniami 
(poprzednik ma tylko 132 „nogi ) i będą 
dostępne w normalnej sprzedaży 
w czwartym kwartale tego roku w wersji 
25 MHz. W pierwszym kwartale 1990 r. 
sprzedawana będzie w ilościach komer- 
cyjnych wersja 33,33 MHz. Odmiana 40 
MHz jest obecnie przygotowywana do 
produkcji. 

Jednocześnie z prezentacją nowego pro- 
cesora Intel przedstawił gotową płytę głów- 
ną do IBM AT oraz cały zestaw dodatkowych 
podzespołów. Do najważniejszych należą: 
kontroler DMA typu 82840, koprocesor sieci 
Ethernet typu 82596, zewnętrzny kontroler 
pamięci Cache pozwalający na rozbudowę 
zewnętrznej pamięci Cache do 512 KB (do- 
kładny symbol jeszcze nie został podany), 
przy szerokości magistrali danych 32 lub 64 
bity, a także nowy dekoder adresowy 
85C508 o cząćie opóźnienia wynoszącym 


Wewnętrzna struktura nowego mikroprocesora 
pozwała na znacznie szybsze wykonywanie opera- 
cji niż modele poprzednie 
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tylko 7,5 ns. Przypuszczalna początkowa 
cena będzie się wahać między 1000 a 1500 
dolarów. 

Całkiem już futurystycznie dla normal- 
nego użytkownika programów brzmi do- 
niesienie o wersji 80486 wykonanej w te- 
chnice ECL o wydajności 100 Mips. Intel 
dosłownie w ostatniej chwili przed tar- 
gami w Chicago ukończył wspólnie z fir- 
mą Prime Computer opracowanie nowe- 
go modelu w najszybszej, jak dotąd, 
technice cyfrowej Emitter Coupled Logic 
(ECL). Całość mieści się na płytce o wy- 
miarach 25 x 20 cm i sterowana jest ze- 
garem o częstotliwości 150 MHz. Intel ma 
nadzieję, że za pomocą tego zestawu 
wejdzie również na rynek dużych kom- 
puterów. Bardziej niecierpliwi będą mu- 
sieli poczekać na ukazanie się tej wersji 
na rynku komputerowym aż do 1992 r. 
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INTERFEJS — BUFOR DO ZX SPECTRUM 


Dariusz Adam Przygoda 


Mikrokomputer ZX Spectrum nie jest bogato wyposa- 
żony w urządzenia peryferyjne. Projektowany był jako 
urządzenie popularne, a co za tym idzie — tanie. Narzuci- 
ło to konstruktorom firmy Sinclair Research Ltd. wymóg 
stworzenia konstrukcji o możliwie małej ilości elemen- 
tów. Konsekwencją tych założeń było zredukowanie do 
minimum wmontowanych w komputer urządzeń wej- 
Ścia/wyjścia. Są one zintegrowane w specjalizowanym 
układzie scalonym ULA 1 realizują następujące funkcje: 
6 obsługę obszaru pamięci ekranu (treść) i koloru 

obrzeża, 

© obsługę klawiatury, 

e obsługę procesów komunikacji z układami zewnętrz- 
nej pamięci taśmowej (magnetofon), 

© obsługę głośniczka komputera. 

Wszystkie te funkcje (za wyjątkiem procesów obsługi 
pamięci ekranu) realizowane są przez dostęp do pól 
adresowych obszaru adresów urządzeń peryferyjnych 
(portów) mikroprocesora Z80. Mówiąc dokładniej, od- 
wołanie się do jakiegokolwiek portu o adresie parzystym 
spowoduje: 

6 w przypadku użycia instrukcji IN — odczytanie 
danych o aktualnym stanie klawiatury i poziomu 
wejścia EAR, 

6 w przypadku użycia instrukcji OUT — w zależności od 
stanu poszczególnych bloków wysłanego bajtu: usta- 
wienie koloru obrzeża ekranu i (z pewnymi uprosz- 
czeniami) ustawienie poziomów sygnałów sterujących 
głośniczek i wyjście MIC komputera. 

Wykorzystanie połowy obszaru adresowego układów 
wejścia/wyjścia dla potrzeb, do pokrycia których w zupeł- 
ności wystarczyłoby osiem adresów (przy sposobie adre- 
sowania portów przez mikroprocesor Z80 oznacza to 
32760 „,zmarnowanych” lokacji) spowodowane jest przy- 
jęciem konwencji maksymalnych uproszczeń: do jedno- 
znacznego uaktywnienia układu ULA wystarcza, aby bit 
A, szyny adresowej przyjął wartość zera logicznego. 

Więcej szczegółów na temat organizacji wewnętrznych 
portów mikrokomputera ZX Spectrum można znaleźć 
w pozycji ZX Spectrum BASIC Programming autorstwa 
Stevena Vickersa (była ona dołączana jako instrukcja 
obsługi do pierwszych wersji komputera). 

Jak już było powiedziane, przyjęcie takiego rozwiąza- 
nia pozwoliło na znacznie obniżenie ceny urządzenia, ale 
stało się to kosztem prostoty dołączania urządzeń pery- 
feryjnych. Niestety, każde urządzenie peryferyjne (dru- 
karka, manipulatory, stacje dysków, urządzenia wykona- 
wcze i pomiarowe) muszą być dołączane do ZX Spectrum 
poprzez interfejsy umożliwiające prawidłową współpra- 


cę, które separują wyprowadzone na złącze krawędziowe 
szyny: danych, adresową 1 sterującą mikroprocesora. 

ZX Spectrum dni swojej świetności ma już dawno za 
sobą, jednak można oceniać, że liczba tych komputerów 
znajdująca się w rękach polskich użytkowników jest 
dosyć znaczna. Zabawka ta może w rękach zręcznego 
hobbisty stać się cennym narzędziem samodoskonalenia 
profesjonalnego, a zaprojektowane i wykonane układy 
rozszerzeń komputera — przynosić realną korzyść na 
polu jego działalności (nie tylko elektronicznej!). 

Dołączenie urządzenia do komputera, wymaga — jak 
już było powiedziane — skonstruowania interfejsu. I na- 
wet nie w tym problem, bo nie święci garnki lepią, ale 
w pewnych cechach konstrukcji ZX Spectrum. Otóż 
zastosowane w nim pamięci RAM to (m.in.) zasilane 
trzema napięciami elementy typu 4116. Charakteryzują 
się one ostrymi wymaganiami co do kolejności załączania 
napięć zasilających; w szczególności brak napięcia ujem- 
nego powoduje bardzo szybkie (rzędu kilkudziesięciu 
milisekund) zniszczenie struktury elementu. Komputer 
zasilany jest napięciem +5 V (niestabilizowane +9 V), 
a pozostałe (—5 V i +12 V) wytwarza wbudowana 
przetwornica. Bywa ona niekiedy dosyć kapryśna, i chwi- 
lowy zanik napięcia +5 V może spowodować, że nie 
wzbudzi się ona ponownie, co oznaczać będzie zanik 
napięcia —5 V. Napięcie to wyprowadzone jest na złącze 
krawędziowe — także i przypadkowe zwarcie na tym 
złączu spowodować może jego zanik. Podobnie może się 
stać z napięciem zasilającym + 12 V również wyprowa- 
dzonym na złącze. W ferworze uruchamiania nowej 
przystawki o taki przypadek nietrudno, szczególnie 
u tych mniej doświadczonych, a bardziej nerwowych. 
Potraktowane w ten sposób Spectrum żegna się z tym 
światem charkotem i rzężeniem głośniczka, a na ekranie 
pojawia się kolorowy wzór z kwadracików. Niektóre 
z nich zdają się pomrugiwać na nas ironicznie, jakby 
monitor chciał powiedzieć: jak nie potrafisz, nie pchaj się 
na afisz... 

Z obłoków antropomorficznego natchnienia na ziemię 
sprowadza nas kwota wyszczególniona na rachunku za 
naprawę komputera. 

Nieprzyjemnym skutkom chwili nieuwagi zapobiec 
można włączając pomiędzy komputer i przystawkę 
bufor-separator charakteryzujący się następującymi ce- 
chami: 
© logicznymi: powinien zapewniać obustronny dostęp 

do wybranych obszarów pól adresowych mikroproce- 

sora, 
e sprzętowymi: w przypadku pojawienia się na jego 
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wyprowadzeniach napięć niezgodnych ze standardem 

TTL (leżących poza zakresem 0 V=5 V) nie dopu- 

ścić do pojawienia się ich wewnątrz komputera nawet 

kosztem uszkodzenia własnej struktury. 

W proponowanym rozwiązaniu pierwszy z tych punk- 
tów ograniczony został jedynie do dostępu do nieparzy- 
stych adresów obszaru adresowego urządzeń wejścia/ 
(wyjścia (powodem był planowany zakres wykorzystania 
komputera). W szczególności uniemożliwia to stoso- 
wanie mechanizmów dynamicznej wymiany zawartości 
obszaru pamięciowego o adresach 0—16383; jednakże 
nic nie stoi na przeszkodzie, aby po doprowadzeniu 
do interfejsu sygnałów /RD, /MREQ i /JROMCS i dro- 
bnej zmianie konstrukcji dekodera, zlikwidować to 
ograniczenie. 

Schemat ideowy interfejsu przedstawiony jest na rys. 1. 
Do separacji szyny danych użyto w nim układów 8216 
(UCY74S416). Zastosowanie tych właśnie (dziś może 
trochę przestarzałych już) elementów podyktowane zo- 
stało analizą schematów struktur analogicznych ukła- 
dów. Okazało się, że ten właśnie element charakteryzuje 
się największym prawdopodobieństwem zwarcia napięć 
spoza zakresu pracy, a tym samym niedopuszczenia do 
pojawienia się ich na szynie danych komputera. Tym też 
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uwarunkowany był wybór kierunku włączenia układu 
w magistralę. Nie bez wpływu był także fakt wytwarzania 
układu przez przemysł rodzimy i jego dostępność na 
rynku. 

Do separacji szyn adresowej i sterującej wykorzystano 
układy 74LS07; wybór ich podyktowany został zwięk- 
szonym zakresem napięć wyjściowych. Dodatkowo kon- 
strukcja struktury powoduje, że w przypadkach awaryj- 
nych wyprowadzenie otwartego kolektora „upala się”, 
izolując szynę od reszty układu. Zastosowanie układów 
serii LS spowodowane zostało obciążalnością ZX Spect- 
rum. Jeżeli komputer współpracować będzie jedynie 
z interfejsem (nic przecież nie stoi na przeszkodzie, aby 
równolegle do niego dołączyć do szyny np. stację dy- 
sków...) można je zastąpić układami 7407, jest to jednak 
ostateczność. 

Zaprojektowanie konstrukcji mechanicznej pozosta- 
wione zostało inwencji wykonawcy; sugerowane jest 
jednak wykorzystanie podstawek pod układy scalone, bo 
niekiedy wylutowanie uszkodzonej kostki jest bardzo 
trudne... 

Proponowane rozwiązanie zostało sprawdzone w prak- 
tyce i kilkakrotnie miało okazję wykazać swoją przy- 
datność chroniąc komputer przed uszkodzeniem. 





ARYTMETYKA ZMIENNOPOZYCYJNA 
MIKROKOMPUTERÓW ZX 


W kolejnym odcinku cyklu poświęconego budowie i zasto- 
sowaniu mikrokomputerów ZX pragniemy przedstawić Czytel- 
nikom najciekawszą (naszym zdaniem) część systemu operacyj- 
nego mikrokomputerów ZX, a mianowicie kalkulator zmienno- 
pozycyjny. Kalkulator ten umożliwia dokonywanie złożonych 
operacji arytmetyczno-logicznych na liczbach zmiennopozycyj- 
nych. Zanim jednak przejdziemy do opisu właściwych procedur 
kalkulatora ZX zapoznamy Czytelników z podstawami aryt- 
metyki komputerowej, to znaczy z systemami reprezentacji liczb. 

W życiu codziennym człowiek posługuje się dziesiętnym 
systemem liczbowym. W systemie tym występuje dziesięć cyfr: 
0, 1,.... 819. Liczby większe od dziesięciu reprezentowane są 
jako wielokrotności podstawy systemu, i tak np. liczbę 235 
należy rozumieć jako: 
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Podstawową jednostką informacji w mikrokomputerach jest 
bit, który przyjmuje wartości 0 i 1. Z tego też powodu mikrokom- 
putery stosują do obliczeń system dwójkowy, w którym pod- 
stawą jest liczba dwa. Pozostawiamy Czytelnikom do spraw- 
dzenia, że wspomnianą liczbę 235d (,,d”” z ang. decimal) można 
przedstawić jako: 11101011b (,„b” z ang. binary): 
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X-y — inaczej! (cz. II) 


Ponieważ system zapisu dwójkowego jest bardzo „„rozwlekły” 
powszechnie stosuje się system szesnastkowy. W systemie 
tym wyróżnia się cyfry 0, 1, .., 8, 9 oraz A, B, C, D,E, F. Cyfry 
A, B, .., F mają wartości dziesiętne odpowiednio: 10, 11, .., 15. 
Przejście z systemu szesnastkowego do dwójkowego (i odwrot- 
nie) jest bardzo proste. Każdą z liczb systemu szesnastkowego 
wystarczy zapisać w postaci czteropozycyjnej liczby dwójkowej 
np. 1EBh (,,h” z ang. hexadecimal): 

l E B 

0001 1110 1011 

Podobnie liczbę binarną wystarczy podzielić na „czwórki” 
i każdą tetradę zapisać w postaci szesnastkowej. 

O ile zapis liczb całkowitych nieujemnych nie przedstawia 
większych kłopotów, o tyle zapis liczb ujemnych, a w szczegól- 
ności ułamkowych jest bardziej skomplikowany. 

Powszechnie do zapisu liczb rzeczywistych niecałkowitych 
stosuje się tak zwany system wykładniczy. W zapisie tym liczbę 
reprezentują dwa składniki: mantysa będąca ułamkiem z prze- 
działu (0.5,1> oraz wykładnik przy podstawie 2: 

N=mk2" np. 0,1 =0,8*2 * 

W tak przyjętym zapisie pierwszy bit mantysy zawsze przyj- 
muje wartość 1. Właściwość ta w przypadku mikrokomputerów 
ZX używana jest do zapisywania w tym bicie znaku liczby i tak 
wartość 0 oznacza liczbę dodatnią, a | ujemną. 

W systemie ZX liczba zmiennopozycyjna zapisywana jest 
w pięciu kolejnych bajtach. Najbardziej znaczący bajt reprezen- 
tuje 7-bitowy wykładnik powiększony o 128 (= 27). Mantysa 
z kolei zajmuje kolejne 32 bity. Zgodnie z wcześniejszą uwagą, jej 
najbardziej znaczący bit określa znak liczby, np.: 

0,162d =(01111110)b.(00100101111000110101001111110111)b 

7Eh 25h E3h 53h F7h 
126d 0,148d 
co po uwzględnieniu cech zapisu daje: 

e=126—128 = —2 

m = 0,5 + 0,148 = 0,648 (mantysa ujemna) 

0,648k27? = 0,162 


oraz 
— 162d =(10001000)b.(10100010000000000000000000000000)b 
88h A2h 00h 00h 00h 
136d 0,6328125d 
= 136—128=8 


m = —|1*0,6328125 (mantysa ujemna) 

—0,6328125%2* = — 162 

W przypadku mikrokomputera ZX81 wszystkie liczby (cał- 
kowite i ułamkowe) traktowane są jako zmiennopozycyjne. 
W przypadku mikrokomputera ZX Spectrum odmienny zapis 
obowiązuje dla liczb całkowitych z przedziału <—65535d, 
65535d), czyli 4(—FFFFh, FFFFh). Liczby nieujemne /+C) 
z tego przedziału zapisywane są w dwóch bajtach mimo utrzyma- 
nia 5-bajtowej konwencji reprezentowania liczb. Jeżeli bajty te 
ponumerujemy: bO, bl, b2, b3 i b4, to dla liczb 4 +C): 

bO = bl =b4=0 

b2 = 1 +C) —256*INT(4 +C)/256) 

b3 =INT(/ +C)/256), 
a dla liczb ujemnych /—C): 

bO = b4=0 

bl = 255 
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b2 = 255—(, —C) — 256%*INT(| —C;/256)) 
b3 = 255—INT(; —C;/256) 
Na przykład 

— 162d = (00h FFh 5SEh FFh 00h) 

Liczby rzeczywiste nie będące liczbami całkowitymi i liczby 
całkowite wykraczające poza omawiany przedział zapisywane są 
dokładnie w myśl tych samych reguł co dla ZX81. 

Należy tu dodać, że projektanci systemu ZX Spectrum 
dopuścili się pewnej niekonsekwencji; liczba zmiennoprzecin- 
kowa zero może być niekiedy zinterpretowana przez system jako 
liczba stałoprzecinkowa o wartości — oczywiście — niezerowej. 
Może to stać się przyczyną trudnych do wykrycia błędów. 

Jak łatwo można się przekonać, liczby, na których operuje 
kalkulator ZX, muszą być mniejsze co do wartości bezwzględnej 
niż 2'7$ = 3,403**10*%, a wartości mniejsze co do wartości 
bezwzględnej niż 27 '*7 x 5,877*10 *? interpretowane są jako 
zero. 

Kalkulator zmiennopozycyjny mikrokomputerów ZX jest 
w istocie rozbudowanym programem w języku asemblera mikro- 
procesora Z80; zajmuje on ok. 2,5 KB obszaru pamięci ROM. 

Działanie kalkulatora oparte jest na Odwrotnej Notacji 
Polskiej (RPN z ang. Reverse Polish Notation). W systemie tym 
obowiązują następujące zasady: 

b operacje dotyczą elementów struktury typu stos (LIFO 
— ang. Last-In-First-Qut), 

b» operator wprowadzany jest po argumentach, 

b» operacja wykonywana jest po wprowadzeniu operatora. 

Należy zauważyć, że RPN jest systemem, w którym do 
przeprowadzenia złożonych obliczeń jest wymagana najmniejsza 
liczba wykonywanych instrukcji i istnieje możliwość dostępu do 
wyników pośrednich. Cecha ta spowodowała, że system RPN 
jest stosowany w wielu kalkulatorach naukowych i programo- 
walnych (np. firmy Hewlett-Packard), znalazł też zastosowanie 
w języku FORTH. 

Stos LIFO, na którym operuje program kalkulatora — CAL- 
CULATE, określony jest przez zmienne systemowe STKEND 
i STKBOT. Każdorazowe przesłanie do kalkulatora liczby 
powoduje przesunięcie STKEND w górę, a pobranie — przesu- 
nięcie w dół. Operacje wykonywane są na argumencie (argumen- 
tach) znajdujących się na szczycie stosu. Niezależnie od stosu 
kalkulator ma sześć rejestrów roboczych (pamięci) stanowią- 
cych część obszaru zmiennych systemowych MEMBOT. 

System operacyjny odwołuje się do kalkulatora poprzez 
jednobajtową instrukcję procesora RST 0028h (czyli RST 
FP_ CALC). Następująca po tej instrukcji sekwencja bajtów 
określa rodzaj wykonywanej na zawartości stosu operacji. 
Kalkulator ma więc swój własny „mini-język” znacznie uła- 
twiający wykonywanie bardziej skomplikowanych programów 
numerycznych. Język ten oprócz podstawowych operacji ma 
również odpowiedniki struktur IF-THEN-ELSE oraz FOR- 
-NEXT. Konstrukcja programu CALCULATE umożliwia rów- 
nież wykonywanie procedur rekurencyjnych. Kalkulator może 
wykonać ogółem 77 instrukcji w przypadku ZX81 (82 dla ZX 
Spectrum), z czego 67 (69 w ZX Spectrum) to operacje na 
zmiennych numerycznych, a pozostałe na zmiennych teksto- 
wych. 

Operacje, które są wykonywane na zmiennych tekstowych są 
w rzeczywistości wykonywane na 5-bajtowych parametrach 
określających te zmienne, a właściwe operacje są wykonywane 
w obszarze E_ LINE. 

Procedury pomocnicze, w które jest wyposażony kalkulator, 
umożliwiają przesyłanie liczb do 1 ze stosu oraz manipulacje na 
różnych ich reprezentacjach. Część procedur pomocniczych 
kalkulatora może być używana przez programistę. 

Najbardziej użyteczne z nich to: 

ALPHA (ZX81 14CEh, ZX Spectrum 2C8Dh). Procedura 
sprawdza, czy znak znajdujący się w rejestrze A reprezentuje 
literę alfabetu. Wynik testu sygnalizuje wskaźnik CY i tak 
CY=|1 gdy A jest kodem litery, CY=0, gdy zawartość A 
nie jest kodem litery. 

ALPHANUM (ZX81 14D2h, ZX Spectrum 2C88h). Procedura 
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sprawdza, czy znak w rejestrze A jest cyfrą lub literą, a wynik 
testu sygnalizuje wskaźnik CY. 
NUMERIC (ZX81 —, ZX Spectrum 2D1Bh). Procedura 
sprawdza, czy zawartość rejestru A jest kodem cyfry. Jeżeli tak, 
to CY =0. 

Procedura pełniąca tę samą rolę dla ZX81 ma postać: 

; PROCEDURA NUMERIC (ZX81) 

NUMERIC: CP ICH ; test kodu „O0” 
RET C ; skończyć gdy mniejsze z CY=| 
CP 26H  ; test kodu „A” 
CCF ; gdy mniejsze to CY =0 
RET ; gdy większe/równe to CY =| 
STK__DIGIT (ZX81 1514h, ZX Spectrum 2D22h). Procedura 
sprawdza, czy zawartość rejestru A reprezentuje liczbę. Jeśli tak, 
to dokonuje jej zamiany na postać zmiennopozycyjną, która 
zostaje umieszczona na szczycie stosu kalkulatora. 
STACK__A (ZX81 151Dh, ZX Spectrum 2D28h). Procedura 
zamienia liczbę dwójkową znajdującą się w rejestrze A na postać 
zmiennopozycyjną. Wynik konwersji znajduje się na szczycie 
stosu kalkulatora. 
STACK__BC (ZX81 1520h, ZX Spectrum 2D2Bh). Procedura 
identyczna z poprzednią, przy czym zamianie ulega liczba 
dwójkowa znajdująca się w parze rejestrów BC. 
STK_ STORE (ZX81 12C3h, ZX Spectrum 2AB6h). Procedura 
przesyła na stos kalkulatora 5-bajtową reprezentację liczby, 
przy czym kolejne bajty (bO...b4) znajdują się w rejestrach A, E, 
D,CiB (jeżeli jest to postać zmiennopozycyjna, to w A znajduje 
się eksponenta, a w pozostałych rejestrach mantysa). 
INT __TO__FP(ZX81 1548h, ZX Spectrum 2D3Bh). Procedura 
zamienia liczbę zapisaną w postaci liczby naturalnej na postać 
5-bajtową, którą umieszcza na szczycie stosu kalkulatora. 
W chwili wywoływania procedury w rejestrze A musi znajdować 
się kod pierwszej cyfry, a jej adres musi wskazywać zmienna 



























































































Tablica 1. (Operacje ary lmetycane 
Mnemonik Stos przed otos po 
ZSTKBOT-STKEND |ZTKBOT=STKEND 
addition x,Y X+ty 
subtract x,y x=y 
multiply x.y X*ty 
to_power x,y yx 
sqr x x0.3 
division x.y xy 
n_mod_m n.m  n=mn*int(n/m), 
| " int(n.m) 
sin x sin(x) 
cos x cos(x) 
tan x tg(x) 
asn x ar.Lsin(x) 
acs x arccos(x) 
atn x arctan(x) 
in x 1n(x) 
exp x exp(x) 
e_fo_fp x.y xelOcy 
exchange x.y Y, X 
duplicate X x.X 
delete x.y K 
negate x m4 
int x int(x) 
sgn x 1 gdy x*>Q 
0 gdy x=U 
—1 gdy xść | 
abs x abhsf x) 
stk_zero — 0 | 
stk_one — 1 | 
 stk_half — 172 
stk_pi-2 — pi/e2 
stk_ten | 10 
stk_data — data 
get _argt x v 
truncate x sgn(x)* 
*int(abs(x))] 






re_stack x" 


x 





systemowa CH__ADD. Jeżeli wartość znajdująca się w rejestrze 
A nie będzie kodem cyfry, to na stosie kalkulatora zostanie 


Tablica 2. Operacje logiczne. odłożona wartość 00h. 
Stoa”Bó DEC__TO__FP (ZX81 14D9h, ZX Spectrum 2C9Bh). Jedna 
STKBOT-STKEND z ważniejszych procedur powodująca zamianę liczby zapisanej 
u w postaci dziesiętnej na odpowiadającą jej postać zmienno- 
x gdy : , AOR TCH 
r gdy pozycyjną. Adres początku reprezentacji dziesiętnej musi znaj- 
dować się w zmiennej systemowej CH__ADD oraz pierwszy bajt 
no_$_no gdy tej liczby w rejestrze A. Wynik zamiany zostaje umieszczony na 
. gdy szczycie stosu kalkulatora. 
not gdy STK__FETCH (ZX81 13F8h, ZX Spectrum 2BFlh). Procedura 
gdy pobiera ze stosu kalkulatora liczbę zmiennopozycyjną do reje- 
SR jdy strów B, C, D, E 1 A. Efekt jej działania jest przeciwny do 
są gdy efektu działania procedury STK__STORE. 
' FP_TO_ BC(ZX81 158Ah, ZX Spectrum 2DA2h). Procedura 
MZ s pobiera liczbę zmiennopozycyjną ze stosu kalkulatora, po czym 
zamienia ją na liczbę dwójkową (całkowitą) i przesyła ją do pary 
no_l_eql gdy rejestrów BC. Jeśli wartość bezwzględna pobranej liczby jest 
307 większa niż FFFFh, to wskaźnik CY = I; natomiast gdy liczba 
no_gr_eq y gdy jest mniejsza od zera to wskaźnik Z =0. 
gdy FIND__INT (ZX81 0EA7h, ZX Spectrum — ). Procedura działa- 
jąca podobnie do FP _ TO__BC zrą różnicą, że jeśli CY = 1 lub 
nos_neql gdy : ż 
gdy Z =Q następuje powrót do systemu z raportem B. 
FIND_INT2 (ZX81 —, ZX Spectrum 1E99h). Procedura 
NÓLSETE : de identyczna z FIND__INT. 
y FP_TO_A(ZX81 15CDh, ZX Spectrum 2DD5h). Procedura 
no_less gdy analogiczna do FP _TO__BC z tą różnicą, że pobrana liczba 
gdy zostaje umieszczona w rejestrze A; wskażnik CY=1|1, gdy 
nos_6q1 , dy wartość bezwzględna pobranej liczby jest większa niż FFh. 
gdy a wskaźnik Z =0, gdy jest to liczba ujemna. 


FIND__INTI (ZX81 —, ZX Spectrum 1E94h). Procedura 
podobna do poprzedniej, lecz wystąpienie CY=|1 lub Z=0 
będzie sygnalizowane błędem B. 
Procedura o podobnym działaniu dla ZX81 ma postać: 
; PROCEDURA FIND__ INTI (ZX81) 
CALL 15CDH "EP TOM 





Tablica 3 Operacje na zmiennych tekstowych. JRC, REP_B , jeżeli CY=l1 to błąd B 
RET Z ; koniecgdyCY=0i1Z=1 
Stos po REP _B: JP OEADH ; w przeciwnym razie błąd B 
POZEOEA STK__TO__A (ZX81 0C02h, ZX Spectrum 2314h). Procedura 
p(a$) gdy y<>0 pobiera liczbę ze stosu kalkulatora, zamienia ją na liczbę cał- 
plo$) gdy y=ó kowitą dwójkową i umieszcza wynik w rejestrze A. Jeżeli wartość 
Si API; DCHE) igi+ zóósbó bezwzględna liczby była większa niż FFh następuje powrót do 
0 gdy a$>b$ systemu z raportem B. Informacja o znaku jest umieszczana 
i w rejestrze € (01h dla liczb nieujemnych, FFh dla pozostałych). 
str_gr_oq pl(a$).plb$) a dy pf 20 STK_ TO_ BC (ZX81 0OBFSh, ZX Spectrum 2307h). Procedura 
pobiera dwie liczby ze stosu kalkulatora, zamienia je na liczby 
strs_neql pl a$) „p(b$) gdy a$<>b$ całkowite dwójkowe i umieszcza wynik w rejestrach B i C. Jeśli 
= AE wartość bezwzględna którejś z liczb jest większa niż FFh 
str_grtr pla$) ,plb$) gdy a$>b$ następuje powrót do systemu z raportem błędu B. Informacje 
gdy a$<=b$ o znakach (jak w STK__TO_A) zostają umieszczone od- 
skroisdć pl a$) ,plb$) ay aó<te powiednio w rejestrach E i D. 
gdy a$>=b$ PRINT__FP (ZX81 15DBh, ZX Spectrum 2DE3h). Procedura 


drukuje w obszarze D__ FILE w miejscu określonym przez 
DF_ CC wartość znajdującą się na szczycie stosu kalkulatora. 
| W zależności od zakresu liczba może być wydrukowana w jednej 
| stras_add pla$) .p(b$) pl(a$+b$) Z następujących postaci: 

| 

| 


strs_eql pla$! .plb$) gdy a$=b$ 
gdy a$<>b$ 


b wykładniczej (dla wartości bezwzględnych mniejszych niż 
1079 lub nie mniejszych niż 10'*, 
pl a$) leni a$) >- ułamka dziesiętnego (dla liczb z przedziału 410, — 1)), 


code pla$) codel(a$(1)) 


> całkowitej (dla liczb całkowitych mniejszych niż 10'*, ale dla 
liczb większych niż 10% jest drukowanie jedynie 8 bardziej 

pl a$) p(val$(a$)) znaczących cyfr, a pozostałe zostają zastąpione zerami). 

SET_STK_B (ZX81 14A6h, ZX Spectrum —). Procedura 

ustala położenie stosu kalkułatora 1 zmienne STKBOT. 

plstr$ix)) STKEND na adres zawarty w parze rejestrów HL. 

Dla ZX Spectrum identyczna w działaniu będzie procedura 

; SET_STK__B (ZX SPECTRUM) 

plchr$(x)) JP 16C2H ;wSET _WORK 

CLEAR (ZX81 149Ah, ZX Spectrum —). Procedura wykonuje 

instrukcję języka BASIC — CLEAR. 


| ż p( a$) valla$) 
| 
| 
p(str$(x)) 


p(chr$(x)) 
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CLEAR__ RUN (ZX81 —, ZX Spectrum 1EAFh). Procedura 
identyczna z CLEAR dla zawartości pary rejestrów BC = 0000h, 
dla BC €> 0000h oprócz wykonania CLEAR nastąpi przesu- 
nięcie RAMTOP do wskazanego przez BC adresu wraz z instala- 
cją stosu maszynowego. 
X__TEMP (ZX81 14A3h, ZX Spectrum —). Procedura czyści 
obszar roboczy interpretera i stos kalkulatora. 
SET__MIN (ZX81 —, ZX Spectrum 16B0h). Procedura iden- 
tyczna w skutkach z X _ TEMP. 
SET_MEM (ZX81 14BCh, ZX Spectrum —). Procedura 
przenosi wskaźnik obszaru roboczego kalkulatora (przechowy- 
wany w zmiennej MEM) do obszaru MEMBOT i czyści obszar 
stosu kalkulatora powyżej obszaru roboczego interpretera. 
SET_ STK (ZX81 —, ZX Spectrum 16C5h). Procedura po- 
dobna w skutkach do SET _MEM. 
Wszystkie operacje, które mogą być wykonywane w kal- 

kulatorze zmiennopozycyjnym, można podzielić na 7 grup: 

operacje arytmetyczne, 

operacje logiczne, 

operacje na zmiennych tekstowych, 

operacje na komórkach pamięci kalkulatora, 

skoki, 

generator wielomianów Czebyszewa, 

inne. 
W zależności od rodzaju wykonywanej operacji parametr lub 
parametry muszą znajdować się na stosie kalkulatora lub 
bezpośrednio za bajtem kodu operacji, podobnie jak w przypad- 
ku skoków. Jeśli w czasie wykonywania operacji występuje błąd, 
to jest on sygnalizowany na monitorze z jednoczesnym zawiesze- 
niem wykonywania programu. W tabelach 1, 2 1 3 zestawiono 
poszczególne operacje. 


VYYVYYVYYYY 


SKOKI 


Kalkulator zmiennopozycyjny oprócz możliwości wykonywa- 
nia operacji arytmetyczno-logiczno-tekstowych ma również 
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możliwość wykonywania skoków i pętli. Do tego celu służą 
następujące operacje (w nawiasach podano odpowiednie kody): 
jump (ZX81 2Fh, ZX Spectrum 33h). Skok bezwarunkowy. 
Wartość skoku jest zapisana w kodzie uzupełnień do dwóch 
bezpośrednio za bajtem instrukcji i określa, ile bajtów (instruk- 
cji) należy przeskoczyć. 

jump-true (00h). Skok warunkowy; skok wykonywany w zale- 
żności od wartości znajdującej się na szczycie stosu kalkulatora. 
Jeśli wartość ta wynosi 0, to skok nie jest wykonany. 
dec-jr-nz (ZX 81 31h, ZX Spectrum 35h). Skok w pętli, instrukcja 
podobna w swym działaniu do instrukcji asemblera DJNZ, przy 
czym funkcję licznika pętli spełnia zmienna BERG (ZX8I, 
BREG w ZX Spectrum). 


GENERATOR WIELOMIANÓW CZEBYSZEWA 


series__06 (86h), series__08 (88h), series__0C (8Ch). Generatory 
wielomianów Czebyszewa aproksymują funkcje sin, atn, ln 1 exp. 
Pozostałe funkcje są obliczane jako kombinacje wyżej podanych. 
Wielomiany te są generowane według wzoru: 

T.(z) =2*z*T,_,(z)—T,_>(Z) 

142)=1, T(Z)=z 
przy czym T„(z) jest n-tym wielomianem. 

Dla funkcji sin n=6, atn n=8, In i exp n= 12. Wartości 
odpowiednich współczynników muszą być zapisane w postaci 
zmiennopozycyjnej i znajdować się bezpośrednio za bajtami 
kodu generacji. 


OPERACJE NA KOMÓRKACH PAMIĘCI 


Kalkulator może wykonywać działania na sześciu komórkach 
swojej pamięci operacyjnej (nie mylić z obszarem pamięci 
maszynowej mikroprocesora; komórki te są to specjalnie zare- 
zerwowane pięciobajtowe obszary tej pamięci). 

(Uwaga: niektóre rozkazy kalkulatora, np. generacja wielo- 
mianów Czebyszewa, wykorzystują te obszary dla swoich po- 
trzeb niszcząc ich zawartość). 


st _mem__0 (C0h), st _mem__1 (CIh), st _mem_2 (C2h ), 
st _mem__3 (C3h), st _mem__4 (C4h), st _mem_5 (CSh). 
Kopiowanie wartości znajdującej się na szczycie stosu kal- 
kulatora do wskazanego rejestru (mem__0...mem__5). 

get _mem__0 (E0h), get _mem__1 (Elh), get _mem__2 (E2h), 
get _mem__3 (E3h), get _mem__4 (E4h), get __mem__5 (ESh). 
Kopiowanie zawartości wskazanego rejestru (mem_ 0... 
...mem__5) na szczyt stosu. 


INNE OPERACJE 


end__calc (ZX81 34h, ZX Spectrum 38h). Koniec operacji. 
Program kalkulatora po zdekodowaniu instrukcji end__calc 
zawiesza operacje i wykonuje RET do głównego programu. 
fp__calc__2(ZX81 37h, ZX Spectrum 3Bh). Wykonanie operacji 
o kodzie zawartym w rejestrze B mikroprocesora. 

peek (ZX81 28h, ZX Spectrum 2Bh). Odpowiednik funkcji 
PEEK języka BASIC. Argument (adres) musi znajdować się na 
stosie kalkulatora; tam też umieszczany jest wynik działania 
operacji. 

usr (2X81 29h, ZX Spectrum —). Odpowiednik funkcji USR 
języka BASIC. Argument musi znajdować się na stosie kal- 
kulatora. 

usr__no (ZX81 —, ZX Spectrum 2Dh). Operacja identyczna jak 
usr dla ZX81. 

Sposób operowania kalkulatorem  zmiennopozycyjnym 
przedstawiony zostanie na następujących przykładach. 
Przykład 1 

Obliczyć zasięg, na jaki doleci ciało wyrzucone pod kątem u. do 
poziomu z prędkością v, przy czym wartości a. i v znajdują się na 
szczycie stosu kalkulatora. Kąt « jest zapisany w radianach. 
Wynik pozostawić w kalkulatorze. Zasięg obliczamy według 
wzoru: x =v*ssin (2*ku.)/g 
Uwaga. W poniższym i w kolejnych programach linie sygnowane 
„»k" dotyczą tylko ZX8I, zaś „+ tylko ZX Spectrum. 


RST FP_CALC ; wywołanie kalkulatora 


+ StÓ8: a, v 


DB duplicate +: GQ Vy. M 

DB multiply * ox v7 

DB st dódtać «3.06 W, 0.84 

DB F4H ,;, 5 kolejnych bajtów 
DB 1CH , reprezentuje 

DB FSH ; data=9.81 

DB CZH 

DB 90H 

DB division r©l v* 79.81 

DB exchange : v79.81, a 

DB duplicate ; 420.81. A, O 

DB addition  ; (v*)/9.81, 2wa 

DB sin ; (v7)]/9.81, sin(2*a) 
DB multiply  ; x=(v' Jesin(2*a)/9.81 
DB end_calc : koniec, powrót do 
RE . procedury nadrzędnej. 


Przykład 2 

Obliczyć za pomocą kalkulatora zmiennopozycyjnego war- 
tość wyrażenia n!, a wynik wydrukować na ekranie w miejscu 
o współrzędnych 10, 12. Liczba n jest liczbą całkowitą dodatnią, 
mniejszą niż 38 i jest zapisana w postaci dziesiętnej w linii 
programu I REM. 


LD EC, (CH_ADD) ; zachować oryginalne CH ADD 
PUSH BC 
* LD HL. 40 70H : (PROG) ZX81, czyli początek 
+ LU HL, (PROG) ; programu w języku Basic 
LD_BC;, 0005H : w HL adres pierwszego bajtu 
ADD KHL, BC , w linii 1 REM 


LD (CH_ADD) „HL 


, adres do zmiennej CH _ADDR 


LD A, (HL) : kod pierwszego znaku do A 
CALL DEC_TO_FP ; postać dwójkowa na stos 
CALL FP_TO_A - XJ do 
JR NZ, CONT 
INC A 

CONT: LD B, M 
RST FP_CALC 
DB stk_one Ot s1 
DB duplicate 
DB st_mem_0 

LOOP: DB multiply ;, rekurencyjne obliczenie n! 
DB get mem_0 
DB stk_one 
DB addition 
DB st_mem_0 
DB dec_jr_nz  ; B:=B-1 
DB FAH ; pętla do LOOP, gdy B>O 
DB delete 
DB end_calc :onł 

+ LD A, 02H 

+ CALL CHAN_OPEN 

. LD B, OAH ; pozycja X=10 

» LD C, OCH , pozycja Y=12 w D_FILE 

* CALL PRINT_AT , ustalić współrzędne 

+ LD A, 16H , kod AT 

+ KDL OAH ; pozycja X 

+ LD B, OCH +; pozycja Y w D_FILE 

** CALL PR_AT_TAB ; ustalić współrzędne 
CALL PRINT_FP ; wydrukować liczbę 
POP BC , odtworzyć CH_ADD 


LD (CH_ADD), BC 


RET 


, koniec. 


W następnym odcinku cyklu przedstawimy możliwości roz- 


budowy standartowych funkcji języka Basic mikrokomputerów 
ZX oraz inne zastosowania kalkulatora zmiennopozycyjnego. 


JANUSZ J. MŁODZIANOWSKI 
TADEUSZ A. ZALESKI 
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ALGORYTM WYZNACZANIA 
WSPÓŁRZĘDNYCH SŁOŃCA, 
KSIĘŻYCA I PLANET 


(CZĘŚĆ Ill) 


W poprzednich odcinkach zamieściliśmy algorytm 
pozwalający wyznaczyć współrzędne równikowe Słońca, 
Księżyca, Merkurego, Wenus i Marsa. Teraz przyszła 
kolej na Jowisza. Kolejne kroki postępowania prowadzą- 
ce do wyznaczenia DL, DB i DR są analogiczne jak 
poprzednio. Korzysta się również z tych samych współ- 
czynników JI, ..., J33. 

Poprawność konstrukcji tych wyrażeń można spraw- 
dzić porównując wartości liczbowe. Dla daty 28 czerwca 
1969 roku (tej samej, dla której wyznaczyliśmy uprzednio 


współczynniki JI, ..., J33) powinny one wynosić: 
DL DB DR 
Jowisz 8353,9 4699,8 5,45233 


Wartości te posłużą do dalszych obliczeń. Podobnie jak 
i poprzednio DR jest odległością planety od Słońca 
wyrażoną w jednostkach astronomicznych. 

Dalsze postępowanie, prowadzące do wyznaczenia 
rektascensji i deklinacji, jest takie samo, jak w przypadku 
Merkurego, Wenus i Marsa, z tym, że dla Jowisza wartość 
LR wynosi: 

LR =(DL/3600)xS + 2*PIxJ18 + DLR, 
gdzie DLR = —17*SIN(J5*2::P1l)/3600*S, S podobnie 
jak poprzednio jest równe PI/180. 

Pamiętamy, że jeśli LR jest ujemne, to dodajemy do 
niego 2 x PI (LR jest wyrażone w radianach), procedurę 
powtarzamy aż uzyskamy LR dodatnie. 
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Porównanie obliczonych współrzędnych (TEST) z po- 
danymi w Roczniku Astronomicznym (ROCZNIK) 


Jowisz 
TEST ROCZNIK 
LR/S 18834 10” 188” 34037 
DDR/S 118/20” 1*18'20” 
DR 5.45233 5,45265 
a 11" 54m275 11* 54" 275 
Ó +2 00/51" +2 00'39” 


Zgodnie z zapowiedzią podamy teraz sposoby wyko- 
rzystania obliczonych współrzędnych równikowych pla- 
net do wyznaczenia momentów wschodów 1 zachodów 
tych ciał niebieskich. 

Wschodem ciała niebieskiego nazywamy moment jego 
przecięcia z horyzontem astronomicznym, kiedy wyłania 
się ono z niewidocznej części strefy niebieskiej, a za- 
chodem, kiedy zanurza się w widocznej części strefy 
niebieskiej w niewidoczną. 

Obliczamy wpierw wartości kąta godzinnego. Kąt 
godzinny jest to, ogólnie biorąc, kątowa odległość danego 
ciała niebieskiego od południka. Obliczanie kąta godzin- 
nego t przeprowadzamy dla momentu wschodu i za- 
chodu. Sposób obliczania tego kąta zależy od ciała 


niebieskiego: 
dla Słońca 
— sin 51 —sinQ x sino 
cost=——————————— 
Cos(Q x cosó 
dla Księżyca 
sin 7 —sinqQ x sinó 
cost -————-——---—-— 
Cos X cosó 
dla planet 
— sin 35 —sinq x sino 
cost=————————-——, 
Cos (p X cosó 
gdzie p — szerokość geograficzna miejsca obserwacji, 
0 — deklinacja ciała niebieskiego w momencie 


jego wschodu lub zachodu, natomiast t jest szukanym 
kątem godzinnym. 

W powyższych wzorach uwzględniono kilka zjawisk, 
m.in. refrakcję, paralaksę oraz (w przypadku Słońca 
i Księżyca) górny bieg ich tarcz. Następnie obliczamy 
miejscowy czas gwiazdowy wschodu sw i miejscowy czas 
gwiazdowy zachodu sz danego ciała ze wzorów: 

Sw «w +24—t, 
SZ=1uZ+ 1, 

gdzie ww i uz są to rektascensje ciała niebieskiego 
w momencie wschodu i zachodu, a wyrażone są, podo- 
bnie jak t, w mierze czasowej. Wcześniej t obliczyliśmy 
w stopniach, a zamiany na miarę czasową dokonujemy 
dzieląc te wartości przez 15. Jeśli sw lub sz jest większe niż 
24, to odejmujemy 24, tj. wartości sw i sz muszą być 
z przedziału 40,24). Następnie przeliczamy miejscowy 
czas gwiazdowy wschodu sw, lub zachodu sz, na czas 
środkowoeuropejski (zimowy) wschodu csew, lub za- 
chodu csez ze wzorów: 

csew = (sw — L — tg)*0,997262+ 1”, gdzie 


L — długość geograficzna obserwatora wyrażona w go- 
dzinach i liczona jest od południka Greenwich na wschód, 
tg — czas gwiazdowy Greenwich o północy czasu UT 


(uniwersalnego), obliczany ze wzoru: 

tg = 6*38”"45:836 + 8640184:542xT +0:0929*xT”, gdzie 
_ JD—2415020 
"36525 

JD — dzień juliański o północy danego dnia. 


Podobne obliczenia przeprowadzamy w celu wyznacze- 
nia czasu środkowoeuropejskiego zachodu csez, 
csez = (sz — L — tg)*0,997262+ 1” 

Gdy sw-L— tg lub sz— L= tg jest większe od 24, to 
odejmujemy 24, a gdy mniejsze od 0, to dodajemy 24. 
W obu przypadkach, wartości t, tg, csew, csez redukuje- 
my do przedziału 40, 24> poprzez wielokrotne dodawanie 
lub odejmowanie liczby 24. 

We wzorach na obliczanie czasu gwiazdowego miej- 
scowego wschodu sw lub zachodu sz danego ciała niebie- 
skiego, potrzebna jest znajomość rektascensji i kąta 
godzinnego (tj. również deklinacji) w momencie wschodu 
czy zachodu tego ciała. Tego oczywiście nie znamy. 
Zwykle postępujemy w ten sposób, że początkowo przyj- 
mujemy wartości rektascensji i deklinacji na 12 godzinę 
danego dnia, w którym chcemy wyliczyć moment wscho- 
du czy zachodu. Następnie obliczamy t, a dalej sw i sz, 
oraz csew i csez. Otrzymamy w ten sposób przybliżony 
moment wschodu csew czy zachodu csez, dla którego 
obliczamy ponownie aw, «Z, SW, SZ, t oraz interesujący nas 
końcowy rezultat, tj. czas środkowoeuropejski wschodu 
csew i zachodu esez. Aby obliczyć w czy z zaczynamy 
obliczenia od samego początku poczynając od obliczenia 
nowych wartości Jl, ..., J33. Liczba kroków iteracji 
zależy od zakładanej dokładności. 

Powyższa procedura spowodowana jest tym, że Słoń- 
ce, Księżyc i planety (głównie Merkury i Wenus) szybko 
zmieniają swoje położenie wśród gwiazd, a więc zmieniają 
swoje współrzędne « i 0 w ciągu doby. 

Przykład 

Obliczamy moment wschodu i zachodu Księżyca dnia 
28 czerwca 1989 r. w Warszawie (p=52 13/2150, 
L = 1*24" 02536). 

Dla 28 czerwca 2969 r. 12” otrzymujemy: 

u. = 17*03723* 

0 = —27 48'16' 

cos t = 0,68414936 

t =46;831254 = 3:1220836 


sw = 24 +0 —t 
sw = 13393421 
SZz=4+t 


sz = 20*178378 

T =0.69488022 

tg = 1674:3942 = 18394224 

csew = 19089665 = 19*05" 

csez = 253824479 = 1*3824479 
obliczenie momentu wschodu 
dla 28 czerwca 1969 r. 18*08966 TU 

g = 17*20”425 

0 = —2809' 10” 

cos t = 0,69422403 

t = 46:034585 = 3:0689723 

sw = 14:276092 

csew = 19,43061 = 19*26" 
i po wyliczeniach dla tego momentu dostajemy 

csew = 19449765 = 19"27”" 
obliczenie momentu zachodu. 

Otrzymaliśmy powyżej, że csez = 13824479, ale już 
28 czerwca. 
Dla tego momentu 

y = 16"31"00* 

0 = —26 46 51" 

t=32723817 

sz = 19'788921 

csez = 0'99405777 = 0” 5976 


Według Rocznika Astronomicznego na 1969 r. wschód 
Księżyca nastąpił o 19"27”" CSE, a zachód o 0" 59" CSE. 
Uwaga! W 1969 roku nie obowiązywał czas letni (CWE). 
Przy obliczaniu momentu wschodu i zachodu szukaliśmy 
410 na przybliżony moment wschodu i zachodu w czasie 
uniwersalnym, a algorytm oblicza « i 6 dla zadanego 
momentu w czasie efemerydalnym. Uproszczono algo- 
rytm z tego powodu, że w 1969 roku i w latach obecnych 
różnica między czasem UT i ET nie przekracza I minuty. 

Możemy również obliczyć azymut ciała niebieskiego 
przy wschodzie lub zachodzie ze wzorów: 








dla Słońca 
. cosó x sint 
SINA = - 
cos 51 
dla Księżyca 
| cosó x sint 
SIN A = ———— 
cos07 
dla planet 
| cosó0 x sint 
sInĄ s——— 
cos 35 


oczywiście wartości 0 1 t bierzemy dla momentów wscho- 
du czy zachodu. Azymut liczymy od południka na 
zachód, np. punkt zachodu ma azymut równy 90". 

Warto również policzyć maksymalną wysokość h ciała 
niebieskiego nad horyzontem, jaką osiągnie danego dnia: 
— gdy ciało znajduje się na południe od zenitu 


h =90 —q +0 
— gdy ciało znajduje się na północ od zenitu 
h=90 +4 —ó0 


Są to wysokości ciała niebieskiego nad horyzontem 
w momencie tzw. kulminacji górnej, tj. wtedy, gdy 
przecina ono południk niebieski w jego górnej części. 
Zachodzi również zjawisko kulminacji dolnej, tj. gdy 
ciało niebieskie przecina południk niebieski w jego dolnej 
części. Wtedy 
h= +0 —90 
W momencie kulminacji górnej ciała niebieskiego miej- 
scowy czas gwiazdowy jest równy rektascensji ciała 
górującego, czyli 
$=q 
Przykładowo, jeśli w danym momencie góruje gwiazda 
0% =10", to wtedy miejscowy czas gwiazdowy wynosi 
10”. W momencie kulminacji dolnej 
s=«+12". 

Znając deklinację, szerokość geograficzną i kąt godzinny 
można obliczyć azymut i wysokość ciała niebieskiego 
z układu wzorów 
sin z x sin A = cosó x sint 
SIn z x cosA = — cosy x sinó +sinq x cos0 x cost 
COsZ = SINY x SINÓ0 + COs4 x cosó x cost, 
gdzie z =90 —h jest tzw. odległością zenitalną. 

Również możemy obliczyć momenty zmierzchu cywil- 
nego i astronomicznego. Gdy Słońce znajduje się 6 pod 
horyzontem, to mamy wtedy koniec zmierzchu (początek 
świtu) cywilnego, a gdy znajdzie się 18" pod horyzontem, 
to jest koniec zmierzchu (początek Świtu) astronomicz- 
nego. Czas trwania zmierzchu tau zależy od szerokości 
geograficznej p i od deklinacji Słońca 0 i obliczany jest 
ze wzoru 
sinh— sing x sinó 





cos(t+ tau) = 

COs(p x cosó 
gdzie h — wysokość Słońca (h = —6* dla zmierzchu cy- 
wilnego oraz h = — 18 dla zmierzchu astronomicznego). 
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T , Funkcja , JI8 


SIN 
CoS 
cos 
CoS 
SIN 
SIN 
SIN 
SIN 
SIN 
CoS 
CoS 
COS 
SIN 
cos 
CoS 
cos 
SIN 
SIN 
COS 
SIN 
SIN 
SIN 
COS 
cO$ 
cos 
SIN 
SIN 
cos 
cos 
SIN 
SIN 
5IN 
SIN 
COS 
Ccos5 
COS 
SIN 
SIN 


Opracował: IRENEUSZ WŁODARCZYK 


Natomiast zmrok astronomiczny może 
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Jak można obliczyć, zmierzch cywilny może trwać od 
Liczba 


t= kąt godzinny wschodu lub zachodu Słońca obliczany 
wg wzoru na cost dla Słońca podany na początku tego 
zachodu do wschodu Słońca dla szerokości geograficznej 
powyżej 60". 

trwać od zachodu do wschodu Słońca dla szerokości 


geograficznych powyżej 48”. Przykładowo, dla 
w dniu | stycznia czas trwania zmierzchu cywilnego 


wynosi 44", a czas trwania zmierzchu astronomicznego 


odcinka. 
wynosi 
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W połowie roku 1987 system PS/2 był 
na ustach wszystkich interesujących się 
komputerami osobistymi. Dzisiaj jak gdy- 
by zainteresowanie nieco opadło, a roz- 
wój i ekspansja rodziny PS/2 wydaje się 
mniejsza, niż oczekiwano. Tym niemniej 
PS/2 zdobył sobie już na rynku ustabilizo- 
waną pozycję i to mimo wysiłków groźnej 
konkurencji, forsującej komputery tzw. 
standardu EISA. Co zatem decyduje 
o atrakcyjności systemu PS/2, oczywiście 
poza faktem, że narodził się on w firmie 
IBM? 

System PS/2 obejmuje formalnie mo- 
dele 30, 50, 60, 70 i 80, ale mode! 30 jest 
tutaj wyraźnym outsiderem, wyraźnie 
nie pasującym do reszty rodziny i nie 
posiadającym podstawowego elementu 
jej architektury, czyli tzw. mikrokanału, 
o którym za chwilę. Twórcom rodziny 
PS/2 przyświecała idea stworzenia je- 
dnolitej struktury w obrębie całej palety 
produkcyjnej IBM oraz ugruntowanie so- 
lidnej bazy zarówno pod przyszły rozwój 
komputerów osobistych, jak i integrację 
tych „drobnoustrojów z większymi sy- 
stemami tej samej marki. 

Modele 50 i 60 są wyposażone w proce- 
sor 80286, modele 70 i 80 — w procesor 
80386 (oczekiwane jest pojawienie się 
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modelu z nowym procesorem 80486). 
Zapewnia im to możliwość wykorzystania 
wirtualnej adresacji pamięci i otwiera 
drogę nowym systemom operacyjnym, 
jak OS/2 i UNIX. Wszystkie te modele 
mają też architekturę opartą o inteligen- 
tne ,„mikrokanały” (ang. microchannel). 
Mikrokanały zapewniają znacznie szyb- 
szą wymianę danych pomiędzy poszcze- 
gólnymi podsystemami niż dotychczaso- 
wa tradycyjna, nieinteligentna magistra- 
la. Wadą magistrali jest możliwość rów- 
noczesnej transmisji danych tylko mię- 
dzy dwoma obiektami: procesorem i pa- 
mięcią operacyjną, pamięcią operacyjną 
i sterownikiem dysków, itd. Jeżeli dwa 
podsystemy próbują transmitować rów- 
nocześnie, urządzenie o niższym priory- 
tecie musi po prostu zaczekać. 
Mikrokanały pozwalają znacznie po- 
prawić ten stan rzeczy, umożliwiając 
praktycznie równoległą transmisję po- 
między różnymi podsystemami. Zalety 
mikrokanałów mogą się jednak wyraźnie 
ujawnić w warunkach, w których opisane 
okoliczności zachodzą, a więc np. w sy- 
stemach wieloprocesorowych lub np. 
w serwerze sieciowym, w którym inten- 
sywnie i równocześnie może transmito- 
wać dane oprócz procesora dwa lub 
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więcej sterowników dyskow sztywnych, 
które w końcu także można rozpatrywać 
jako specjalizowane procesory. Archite- 
ktura mikrokanału przewiduje obok pro- 
cesora głównego do 15 koprocesorów, 
realizujących transmisję danych w naj- 
przeróżniejszej formie. Natomiast w sy- 
stemach jednoprocesorowych (a zalicza- 
ją się do nich typowe konfiguracje kom- 
puterów „biurkowych ') mikrokanał nie 
daje w zasadzie nic istotnego. 

Architektura mikrokanału jest chronio- 
na patentami, a zatem ewentualni chętni 
do produkcji uzupełniających kart itd. 
muszą zacząć od zakupu licencji w firmie 
IBM. Oprócz tego konieczne są specjali- 
zowane układy scalone, obsługujące mi- 
krokanały. 

W systemie PS/2 stosowane są wyłącz- 
nie stacje dysków elastycznych o śred- 
nicy 3,5 cala i pojemnościach 720 KB 
i 1,44 MB. Nowy format dyskietek chara- 
kteryzuje się licznymi zaletami, w szcze- 
gólności jest znacznie bardziej poręczny 
i odporny na udary mechaniczne. 

Bardzo istotną nowość stanowią w sy- 
stemie PS/2 także sterowniki graficzne, 
zwłaszcza karta VGA. W odróżnieniu od 
mikrokanału karta VGA stała się powsze- 
chnie uznanym, przyszłościowym stan- 
dardem. Oprócz dość wysokiej rozdzie|- 
czości (standardowo 640 x 480 punktów) 
oferuje ona niezwykłe możliwości opero- 
wania barwą, w czym zasługa m.in. ana- 
logowego systemu sterowania monitora, 
pozwalającego na bezstopniowy wybór 
barw. 

Komputery rodziny PS/2 wyróżniają 
się bardzo nowoczesnym rozwiązaniem 
technologicznym. Oprócz specjalizowa- 
nych układów wielkiej skali integracji 
zastosowano montaż powierzchniowy, 
znacznie dogodniejszy dla automatycz- 
nych linii produkcyjnych. Zmniejszono 
też o połowę rozstaw zestyków w gnia- 
zdach dla kart dodatkowych, co w sumie 
pozwoliło na znaczną miniaturyzację 
komputerów rodziny PS/2. 


ROLAND WACŁAWEK 
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zfrżokwój: WZ IBM 'S/2: 1 — lampa SZEŃ odci, <Y DUdÓWA * 
monitora, 3 — chassis monitora, 4 — obudowa dysku twardego wraz z elektroniki 






sterującej, 5 — tarcze pakietu dysku twardego, 6 — silnik napędowy dysku twardego, 7 — zespół 
głowic z układem napędowym (silnik liniowy), 8 — napęd dysków elastycznych 3,5, 

9 — dyskietka 3,5”, 10 — stelaż metalowy, 11 — płyta główna komputera, 12 — płyta pośrednia, 

13 — głośnik, 14 — zasilacz komputera, 15 — klawiatura. 
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